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1.0 GENERAL INFORHATION 

1.1 PROGRAM ABSTRACT 

This program is a diagnostic program that is designed to test the 
functionality of the KaJ11-CA It can run as a standalone diagnostic or 
under the XXOP monitor. The purpose of the diagnostic is to provide a 
thorough functional test of the KXJll-CA module, and to report any 
defects found to the operator. It is to be used in a manufacturing or 
engineering environment. It can be used with the APT system. 

The diagnostic consists of two major sections: the KXJll-CA test code, 
and the support routines which reside in the arbiter's memory. The 
support routines include routines to: size arbiter memory, determine 
what type of processor the arbiter cpu is (KDJll. KDFll etc.), 
establish operatino environment (number of KXJll-CAs to be tested 
etc.), determine if an lOP set to ID* 15 is resident and is to be used 
as part of the test system, transfer information to/from the arbiter 
and KXJll-CA being tested, and handle interrupts generated by the 
KXJll-CA under test. 

Uhen the diagnostic is started it will first try to determine which of 
three modes it is supposed to be testing in. The three modes are SBC 
mode. Single lOP mode, and Multiple lOP mode. 

SBC mode tests the KXJll-CA as a single board computer. To enter this 
mode, bit 11 in the software switch register (address 176) must be set 
- 1. and the lOP 10 switch on the KXJll-CA to be tested must be set to 
0 or 1. The module can reside in the backplane with the arbiter or any 
other backplane or even on a bench with power applied to it. Uhen the 
KXJll-CA is configured as a SBC its Q Bus interface is disabled, 
therefore any tests which require the Q Bus are not performed. 

Sin9le IQP mode tests the KXJll-CA as the only I/O processor in an 
arbiter system. The KXJll-CA under test must reside on the arbiter's 
Q Bus. The ID switch on the KXJll-CA can be set to any value except 0 
or 1. 

Multiple ICR mode can test up to 14 KXJll-CA modules on the arbiter's 
Q Bus though this is not possible in practice due to Q bus loading 
limitations. The KXJll-CAs are tested sequentially - not concurrently. 
The advantage of Multiple IQP Mode is that it reduces the amount of 
eciuipmcnt needed to test a given number of KXJll-CA modules. The 
disadvantage is that the modules are not executing test code as they 
spend time waiting for other KXJll-CAs being tested to complete their 
turn. Each KXJll-CA to be tested requires the arbiter to have a 
dedicated serial port for program transfer and status reporting. Each 
KXJll-CA in an arbiter system must have its lOP ID switch set to a 
different value. In other words no two KXJll-CAs in the same arbiter 
system can have their 10 switches set to the same value. 

If the diagnostic determines that the SBC test mode is invoked it will 
Jump to the remote loader. The remote loader routine is executed by the 
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124 arbiter. It establishes contact with the KXJll-CA to be tested via an 

125 arbiter serial line port connected to the console serial line port of 

126 the KXJll-CA to be tested. Uhen contact has been succesfully made the 

127 arbiter will down line load the test program from its memory to the 

128 memory of the KXJll-CA to be tested via the serial line oorts. 
129 

130 Once the test orogram is resident in the KXJll-CA under test the 

131 arbiter is no lonoer needed, although it will be monitorina its 

132 dedicated serial line waiting for characters from the KXJll CA console. 

133 If the arbiter is needed for other purposes, the connector to the 

134 console of the KXJll-CA can be removed and a terminal, set to the 

135 correct baud rate, can be connected in its place to monitor program 

136 progress. 
137 

138 If the arbiter determines that SBC mode is not invoked it niII execute 

139 routines to: determine what tvpe of processor the arbiter cpu is, size 

140 arbiter memory, determine if 22 bit addresses are supported: determine 

141 if more than one KXJll CA is resident in the system, and report the 

142 observed configuration. If only one KXJll-CA is found Single TOP mode 

143 is entered. If an lOP with an ID* of 15 is detected the program will 

144 question the operator as to whether that lOP is a known good module to 

145 be used as part of the test bed. An lOP that is to be used as a known 

146 good test module may be either a KXTll-CA or a KXJll-CA. 
147 

148 The arbiter will establish communication with the KXJll-CA to be tested, 

149 as in S6C mode, and a small program will be down line loaded into the 

150 memory of the KXJll-CA to be tested. This program will attempt to use 

151 the OHA functionality of the KXJll-CA to be tested to execute a DMA 

152 transfer of the test code from arbiter memory into the memory of the 

153 KXJll-CA to be tested. Failing this it will load the test code from 

154 the arbiter's memory via the arbiter's dedicated serial line port and 

155 the console of the KXJll-CA being tested. The test program starts by 

156 itself once it has been transfered to the target KXJll-CA. 
157 

158 If more than one lOP is detected in the system; Multiple lOP mode is 

159 entered. Soac hardware requirements must be observed for correct 

160 operation of Multiple lOP mode. The arbiter must have a serial line 

161 dedicated to each of the KXJll-CA modules to be tested. The dedicated 

162 aerial line with the lowest Q bus address (176500) must be connected 

163 to the KXJll-CA with the lowest ID switch setting. w>d the next lowest 

164 addrsM serial line (176510) connected to the KXJll-CA with the next 

165 lowest ID SMitch setting wtd so on. The position of the KXJll-CAs in 

166 the arbiter backplane with respect to their 10 switch setting does not 

167 Matter. 
168 

169 The arbiter establishes coMnunication with the KXJll-CA to be tested 

170 and uses the methods described previously to transfer the program to 

171 the target KXJll-CA. Uhen the KXJll-CA has successfully loaded the 

172 program it will start executing the test code. Uhen the KXJll-CA has 

173 completed a pass it notifies the arbiter by causing an interrupt to 

174 the arbiter. The KXJll-CA then waits for the arbiter to signal it to 

175 continue testing when its turn comes sgain. The arbiter does this by 

176 writing to TPR12 of the KXJll-CA which is to resume testing. 
177 

178 The arbiter's interrupt routine will then load the test code into the 

179 next KXJll-CA to be tested wtd so on. Once the arbiter has initially 

180 transfered the test code into each KXJll-CA to be tested there is no 
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181 need to reload the test code on subsequent turns. 
182 

183 There are two possible diagnostic operating environments: Operation 

184 under the XXOP monitor and operation under APT. Uhen operating in the 

185 APT environment certain tests are not performed. Namely the console 

186 port data test. If this test were run when in the APT environment. 

187 it Mould could cause characters to be sent to the APT monitor when they 
168 Mere not expected and give a false failure indication .o APT. 

189 

190 1.2 SYSTEM REQUIREMENTS 
191 

192 * KDFll OR KDJll ARBITER PROCESSOR MODULE 

193 * AT LEAST 56KB OF Q-BUS RANDOM ACCESS MEMORY 

194 * 22 BIT ADDRESS Q BUS BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE) 

195 ♦ OL COtfATIBLE SERIAL LINE PORT FOR EACH KXJll-CA TO BE TESTED PLUS ONE 

196 FOR THE ARBITER'S CONSOLE PORT. 

197 * CONSOLE TERMINAL. OR CONNECTION TO APT SERIAL LINE. 

198 ♦ ONE TO FOURTEEN KXJll-CA MODULES TO BE TESTED. 

199 * OPTIONALLY. A Q BUS EXERCISER MAY BE INSTALLED OR A KXTll-CA WITH AN 

200 I/O PAGE ADDRESS OF 175740 CID# 15) MAY BE INSTALLED FOR FURTHER 

201 Q BUS INTERFACE TEST COVERAGE 
202 

203 1.3 RELATED DOCUMENTS AND STANDARDS 
204 

205 KXJll-CA MODULE SPECIFICATION 

206 POPll MAINOEC SYSMAC PACKAGE 
207 

208 1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
209 

210 Diagnostic programs for the arbiter system components should 

211 be executed successfully prior to invoking the KXJll-CA diagnostic 
212 

213 1.5 ASSUMPTIONS 
214 

215 It is assumed that the diagnostic operator is familiar with 

216 the XXDP« operating system and the Jll micro-odt. 
217 

218 2.0 OPERATING INSTRUCTIONS 
219 

220 2.1 LOADING AND STARTING PROCEEDURE 
221 

222 The diagnostic for the KXJll-CA is loaded into the arbiter's memory 

223 from either a mass storage device connected to the arbiter system using 

224 the XXDP operating system coMMmds. or from APT. The diagnostic is then 

225 autonatically down line loaded into the KXJll-CA under test via the 

226 KXJll-CA' s console serial line port. 

227 £ 
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229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

246 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 



.REM L 



2.2 PROGRAM OPTIONS 

TKC FOLLOWING SUITCH OPTIONS ARE SUPPORTED: 
SUR OCTAL FUNCTION 



15 
14 
15 
12 
11 
10 
09 
08 
07 



KXXXK) 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 



HALT ON ERROR 

INHIBIT ERROR SUMMARY (AT EOP) 

INHIBIT ERROR REPORTS 

lOP ID* 15 IS KNOWN GOOD FOR TESTI^«5 

TEST STAND ALONE lOP 

EXECUTE EXTEhCED MEMORY TESTS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<6:0> 

INHIBIT TEST NUMBER/TITLE 



3.0 ERROR INFORMATION 

If bit 15 in the software switch register is set then all errors will 
cause the KXJll-CA to halt after reporting the error to the arbiter 
via the TERROR routine. All test errors will type an error message, 
a unique error number, and the PC at the time or the error. 

4.0 PROGRESS REPORT 

At the end of each pass the id number of the KXJll-CA under test, the 
diagnostic name and pass count are printed. 
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263 
?64 

265 

266 000000 

279 

280 



261 
28? 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
306 
309 
310 
311 
312 



000001 
160000 

101400 
000200 
000000 
000123 



001100 
104000 
000004 



000011 



.NLIST ^1C.MD,C^J),BEX.T0C : DON'T LIST MACRO CALLS. MACRO DEFINITIONS. 

CONDITIONAL ASSEMBLERS, BINARY EXTENTIONS. 
OR TABLE OF CONTENTS 
ENABL ABS.AMA.LC.CRF 
LIST ME 

TITLE KXJll-CA FUNCTIONAL TEST 
♦COPYRIGHT CO MOt.XXXVI 
♦DIGITAL EQUIPMENT CORP. 
^MAYNARD. MASS. 01754 
♦ 

♦PROGRAM BY H. ENMAN 
♦ 

♦THIS PROGRAM WAS ASSECLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC 11-DZQAC-C5), JAN. 1981. 

♦TN-1 

*SUR=160000 ;;HALT ON ERROR. LOOP ON TEST. INHIBIT ERROR TYPOUT 



$SUR= 101400 
*SURMK» 000200 
*EN" 0 

PRGSIZ- <LASTAD/BIT8> 



REDEFINE ACTIVE SWITCHES... 
. , .AND ADD SUR<7>. 

PROGRAM SIZE (IN 1/8 K UNITS)... 
...EXCLUDING BUFFERS AND REMOTE STUFF. 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

PROGRAM CONTROL PARAMETERS ARE LOCATED IN THE *ETABLE AREA STARTING 
AT LOC 1216, AND ARE CONFIGURED lAU PROCESSOR TYPE AT ASSEMBLY TIME. 

THE PROGRAM WILL BYPASS ANY TEST IN WHICH THE DEVICE/FUNCTION REQUIRED 

APPEARS TO BE NON-EXISTANT (WHETHER INTENTIONAL OR NOT). 

YOU MAY FORCE AN ENTRY TO ANY/ALL TEST(S) VIA SWR<08> OPTION. 

THE FOLLOWING SWITCH OPTIONS ARE SUPPORTED: 



SWR OCTAL 



FUNCTION 



ERROR 

ERROR SUMMARY (AT EOP) 
ERROR REPORTS 

L5 IS KNOWN 6000 FOR TESTING 
EXTENDED MEMORY TESTS 



15 100000 HALT ON 

14 040000 INHIBIT 

13 020000 INHIBIT 

12 010000 lOP ID* 

11 004000 EXECUTE 

10 002000 UNUSED 

09 001000 LOOP ON ERROR 

OS 000400 LOOP ON TEST IN SUR<6:0> 

07 000200 INHIBIT TEST NUMBER/TITLE 

;♦♦♦♦♦♦♦♦*♦**♦♦**♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
;♦♦♦♦♦♦♦♦♦♦♦♦♦*♦«♦♦♦♦*«'*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦* 

.SBTTL BASIC DEFINITIONS 

; ♦INITIAL ADDRESS OF THE STACK POINTER ♦** 1100 ♦♦♦ 
STACK* 1100 
ERROR- EMT 
SCOPE- lOT 

{♦MISCELLANEOUS DEFINITIONS 

HT" 11 s J CODE FOR HORIZONTAL TAB 



Kl 
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BASIC DEFINITIONS 

000012 LF= 12 CODE FOR LINE FEED 

000015 CR» 15 ;:COOE FOR CARRIAGE RETURN 

000200 C«-F= 200 :; CODE FOR CARRIAGE RETURN-LINE FEED 

177776 PS" 177776 ; jPROCESSOR STAT'JS WORD 

177776 PSU- PS 

177774 STKLMT- 177774 STACK LIMIT REGISTER 

177772 PIRQ" 177772 PROGRAM INTERRUPT REWJEST REGISTER 

177570 DSUR= 177570 ; .-HAROUARE SWITCH REGISTER 

177570 OOISP- 177570 ; .HARDWARE DISPLAY REGISTER 

:*GENERAL PURPOSE REGISTER DEFINITIONS 

000000 R0= i<0 GENERAL REGISTER 

000001 Rl= *1 : : GENERAL REGISTER 

000002 R2= *2 !.- GENERAL REGISTER 

000003 R3= *3 J ; GENERAL REGISTER 

000004 R4=' M ; : GENERAL REGISTER 

000005 R5= *5 GENERAL REGISTER 

000006 R6= US ; ; GENERAL REGISTER 

000007 R7« *7 GENERAL REGISTER 

000006 SP= ne i } STACK POINTER 

000007 PC= i<7 ; ; PROGRAM COUNTER 

:*PRIORITY LEVEL DEFINITIONS 

000000 PRO^ 0 5 ; PRIORITY LEVEL 0 
000040 PRl- 40 J ; PRIORITY LEVEL 1 
000100 PR2- 100 ;! PRIORITY LEVEL 2 
000140 PR3'= 140 ; ; PRIORITY LEVEL 3 
000200 PR4= 200 PRIORITY LEVEL 4 
000240 PR5" 240 ; s PRIORITY LEVEL 5 
000300 PR6- 300 s 5 PRIORITY LEVEL 6 
000340 PR7« 340 ; {PRIORITY LEVEL 7 

5 ♦"SWITCH REGISTER" SWITCH DEFINITIONS 

100000 SW15- 100000 

040000 SW14« 40000 

020000 SW13- 20000 

010000 SW12- 10000 

004000 SWll- 4000 

002000 SWIO- 2000 

001000 SW09" 1000 

000400 SW08- 400 

000200 SW07- 200 

000100 SW06- 100 

000040 SW05* 40 

000020 SW04- 20 

000010 SW03- 10 

000004 SW02- 4 

000002 SWOl* 2 

000001 SWOO- 1 
001000 SW9- SW09 
000400 SW8- SW08 
000200 SW7- SW07 
000100 SW6> SU06 
000040 SW5- SW05 
000020 SW4- SW04 
000010 SW3- SU03 
000004 SW2- SW02 
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000002 
000001 



313 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



000250 



177572 
177574 
177576 
172516 
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SU1= 
SUO= 



SUOl 
5U00 



100000 


BITIS-* 


100000 


040000 


BIT14= 


40000 


020000 


BIT13= 


20000 


010000 


BIT12= 


10000 


004000 


BITll- 


4000 


002000 


BIT10= 


2000 


001000 


BIT09- 


1000 


000400 


BIT08* 


400 


000200 


BIT07= 


200 


000100 


BIT06= 


100 


000040 


BIT05= 


40 


000020 


BIT04* 


20 


000010 


BIT03* 


10 


000004 


BIT02* 


4 


000002 


BITOl- 


2 


000001 


BITOO* 


1 


001000 


BIT9- 


BIT09 


000400 


BIT8- 


BIT08 


000200 


BIT7- 


BIT07 


000100 


BIT6- 


BIT06 


000040 


BIT5* 


BIT05 


000020 


BIT4« 


BIT04 


000010 


BITS- 


BIT03 


000004 


BIT2« 


BIT02 


000002 


BITl- 


BITOl 


000001 


BITO« 


BITOO 



;*OATA BIT DEFINITIONS (BITOO TO BIT 15) 



.•♦BASIC "CPU" TRAP VECTOR 
ERRVEC- 4 
RESVEC« 10 
TBITVEC-14 
TRTVEC« 14 
BPTVEC- 14 
lOTVEC- 20 
PURVEC« 24 
EMTVEC- 30 
TRAPVEC»34 
TKVEC- 60 
TPVEC- 64 
PIRQVEC-240 
.SBTTL MEMORY MANAOMENT 



ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POVER FAIL 

EMULATOR TRAP (EMT) **ERR0R** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 

DEFINITIONS 



s*KTll VECTOR ADDRESS 
MMVEC« 250 

;*KT11 STATUS REGISTER ADDRESSES 

SRO« 177572 

SR1« 177574 

SR2- 177576 

SR3- 172516 
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177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 



177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 



177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 



177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 
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s*USER -I" PAGE DESCRIPTOR REGISTERS 



UIPORO=- 
UIP0R1= 
UIP0R2- 
UIP0R3- 
UIPDR4= 
UIP0R5» 
UIPDR6" 
UIPDR7" 



177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 



s*USER "D" PAGE DESCRIPTOR REGISTORS 



UDPORO- 
UDPDRl* 
UDPDR2- 
UDPDR3=' 
UDPDR4« 
UDP0R5= 
U0P0R6=> 
UDP0R7» 



177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 



:*USER "I" PAGE ADDRESS REGISTERS 

UIPARO- 177640 
UIPARl- 177642 
UIPAR2- 177644 
UIPAR3- 177646 
UIPAR4- 177650 
UIPAR5- 177652 
UIPAR6- 177654 
UIPAR7- 177656 

i*USER "D" PAGE ADDRESS REGISTERS 



UOPARO* 
UOPARl" 
UDPAR2- 
U0PAR3- 
UDPAR4> 
U0PAR5« 
UDPAR6- 
U0PAR7- 



177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



:*SUF-ERVISOR "I" PAGE DESCRIPTOR REGISTERS 



SIPDRO- 
SIPDRl- 
SIPDR2" 
SIP0R3- 
SIPDR4- 
SIPDR5- 
SIPDR6- 
SIP0R7- 



172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 



{♦SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 



Nl 
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172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 



172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 
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172260 
172262 
172264 
172266 
172270 
172272 
172274 
172276 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 



SOPORO= 
SOPORl- 
S0f>0R2« 
S0P0R3- 
S0P0R4> 
SDP0R5- 
S0P0R6- 
S0P0R7=» 



172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 



:*SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPARO- 172240 
SIPARl- 172242 
SIPAR2- 172244 
SIPAR3* 172246 
SIPAR4" 172250 
SIPAR5- 172252 
SIPAR6= 172254 
SIPAR7- 172256 

!*SUPERVISOR "0" PAGE ADDRESS REGISTERS 

SOPARO- 172260 
S0PAR1» 172262 
S0PAR2- 172264 
S0PAR3- 172266 
S0PAR4" 172270 
SDPAR5- 172272 
SDPAR6- 172274 
S0PAR7- 172276 

;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 
KIPDRl- 172302 
KIP0R2- 172304 
KIP0R3- 172306 
KIP0R4- 172310 
KIP0R5- 172312 
KIPDR6- 172314 
KIP0R7" 172316 

{♦KERNEL -0" PAGE DESCRIPTOR REGISTERS 



KDPORO 
KOPORl 
K0P0R2 
KDP0R3 
K0P0R4 
KDPDR5 
K0P0R6 
K0P0R7 



172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 



; ♦KERNEL "I" PAGE ADDRESS REGISTERS 



172340 
172342 



KIPARO- 172340 
KIPARl- 172342 



B2 



tajll-CA FIJNCTIOML TEST 

rcnoRY rMNAGcrcNT oeFiHiTiaNS 

172344 
172346 
172350 
172352 
172354 
172356 
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346 
347 
348 
349 

350 
351 
352 



000001 
000002 
000004 
000010 



KIPAR2< 
KIPAR3' 
KIPAR4> 
KIPAR5- 
KIPAR6> 
KIPAR7" 



172344 
172346 
172350 
172352 
172354 
172356 



;*KERNEL "0" PAGE ADDRESS REGISTERS 





1 fcSOO 




1 73T£/> 
X rcoOU 




X IcSbd 


IsUfnKX" 


X rcooc 




X fcoo^ 




X ICjO^ 




1 73Y^iL 

1 'CdOO 




X f CdOO 




i. IC3ISJ 




X leo i\J 








X ICO IC 




X 1 CO 1^ 




X * CO f ^ 






ifnPAQ7s 


X ICO r V 




1 77«;73 


nrw^v 


1 77S7P 
X ( 1 J 1 c 




X ' c^xo 


1 Bin J 


X ( C JXv 








17774ft 

XIII 


S17 








oxo 




' Ann A 


FFU MnOP 
r nunt ■ 














MHR> 


1 74470 






wUi X 


1744AP 


3PP 


1744M) 




174460 






STATl* 


1744% 




1 744 SA 


<;tatp» 

o 1 n 1 c 


1744i>4 




1744S4 




1744i>4 


3?6 


1 74446 


CHAIH* 


174446 


VC ' 






MAAAA 

X ' "r^^r^ 




X * 


THAU ■ 


X * ■***^c 


329 


174440 


CHA2L" 


174440 


330 


174432 


CARAHl- 


174432 


331 


174412 


CARALl- 


174412 


332 


174422 


CARBHl- 


174422 


333 


174402 


CARBLl- 


174402 


334 








335 


000135 


MMRDEF- 


135 


336 


000102 


SSRCHl- 


102 


337 


000103 


SSRCH2- 


103 


338 


000240 


SCCCHl- 


240 


339 


000241 


SCCCH2- 


241 


340 


000060 


aiEi- 


060 


341 


000061 


aiE2- 


061 


342 


000062 


SETIEl- 


062 


343 


000063 


SETIE2- 


063 


344 


000054 


aiPi- 


054 


345 


000055 


CLIP2- 


055 



jKDJllA CACHE CONTROL REGISTER 



; MASTER MODE REGISTER. 

; CHANNEL 1 CURRENT OP COUNT 

: CHANNEL 2 CURRENT OP COUNT 

! CHANNEL 1 STATUS. 

; CHANNEL 2 STATUS... 

;...AND COMMAND REGISTER (FOR BOTH). 

! CHAIN ADDRESS REGISTERS HIGH CSEG/TAG)... 

{...AND THE LOU (OFFSET) HALFS. 

{CURRENT ADDRESS REGISTER A HI CHAftCL 1 

{CURRENT ADDRESS REGISTER B HI CHANNEL 1 
{CURRENT ADDRESS REGISTER B LO CHAhtCL 1 

{ MMR default setting <block lower level hardNare 
sSet Software Request CH 1 
{Set Software Re^st CH 2 
{Start Chain CoMnvtd CH 1 
{Start Chain Command CH 2 
{Clear channel 1 interrupt enable 
2 interrupt enable 
interrupt enable 
interrupt enable 

1 current and pending interrupt 

2 current and pending Interrupt 



{Clear channel 
{Set channel 1 
{Set channel 2 
{Clear channel 
{Clear channel 



{Chain Reload Word Bit Definitions 

dHAD« 1 
MODE- 2 
IV- 4 
PATMSK- 10 



{Chain address 
{Channel Mode Register 
{Interrupt Vector 
{Pattern and Mask 



KXJll-CA FUNCTIONAL TEST 
MEMORY MANAGEMENT DEFINITIONS 



353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 

36a 

369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
406 
409 



000020 
000040 
000100 
000200 
000400 
001000 



ocoooo 

000010 
000020 
040000 
000000 
140000 
100000 



000001 
000010 
000000 
000005 
000014 
000004 
000017 
000012 

000020 

000000 
000040 
000100 
000140 

000200 
000400 
001000 

002000 
004000 
010000 

020000 
040000 
100000 

000000 
000002 
000003 

000010 
000020 



000001 
000002 
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BOP' 20 :Basc Operation count 

BARB' 40 ;Base Address Reg B 

BARA- 100 iBase Address Reg A 

C0P= 200 : Current Operation count 

CARS* 400 {Current Address Register B 

CARA- 1000 .-Current Addres^ Register A 

» 

;OTC Current and Base Address Segment/tag bit definitions 



UP 
OOUN- 
HOLD- 
K2I0- 
K2MEM- 
QBUSIO 
QBMEM- 



0 
10 
20 

40000 
0 

140000 
100000 



INCREMENT ADDRESS 
DECREMENT ADDRESS 
HOLD ADDRESS 

ADDRESS IS IN lOP I/O SPACE 
ADDRESS IS IN lOP MEMORY 
ADDRESS IS IN Q BUS I/O SPACE 
ADDRESS IS IN Q BUS MEMORY 



regi 

.Operation type field 

Trea- 1 ; BYTE -BYTE TRANSFER 

TRFUNL« 10 J FUNNEL TRANSFER BYTE - WORD 

TRUU' 0 :UORD UORD TRANSFER 

STBB« 5 : BYTE -BYTE SEARCH TRANSFER 

STFUNL« 14 ; FUNNEL SEARCH TRANSFER BYTE - UORD 

STUU- 4 jUORO-UORO SEARCH TRANSFER 

SRCHB8- 17 sBYTE-BYTE SEARCH 

SRCHUU- 12 : WORD -UORD SERRCH 



FLIP- 20 
; Transfer type 
SNGL- 0 
BUSHOG- 40 
BUSREL- 100 
INTLV- 140 

: Interrupt Enable Field 
lEOP- 200 
IMC- 400 
ITC- 1000 



;FLIP BIT 
field 

: SINGLE TRANSFER -HARDWARE INITIATED 
{DEMAND DEDICATED/BUS HOLD 
i DEMAND OEDICATEO/BUS RELEASE 
: DEMAND INTERLiAVE 



INTERRUPT ON EOP 
INTERRUPT ON MATCH CONDITION 
INTERRUPT ON TRANSFER COMPLETE 



:Ba8C to Current rsload CfMblc field 
REOP 



RMC' 
RTC' 
sChain 
CEOP- 
CMC- 
CTC« 



2000 
4000 
10000 
enabls 
20000 
40000 
100000 



; Match control 



srti- 

SUM- 
S8M« 

HM- 
SURQ- 



0 

2 
3 

10 
20 



;RELOAO ON EOP 
iRaOAO ON MATCH CONDITION 
.•RELOAD ON TRANSFER COMPLETE 
field 

tCHAIN ON EOP 
tCHAIN ON MATCH CONDITION 
j CHAIN ON TRANSFER COMPLETE 
fisld 
:STQP IF NO MATCH 
;STOP ON UORD MATCH 
;STOP ON BYTE MATCH 

sHARDUARE INTERRUPT MASK 
sSOFTUARE REQUEST 



:DTC Status Ragistcr bit definitions 

fC- 1 5 TRANSFER COMPLETE 

EOP- 2 iETC OF PROCESS CNXM) 



D2 

KXJll-CA FUNCTIONAL TEST MACRO Y05.02 Thursday 03-Apr-86 14:11 Page 15 

MEMORY MANAGEMENT DEFINITIONS 



410 


004000 


CA» 


4000 


; CHAIN ABORT 


411 


010000 


NAC» 


10000 


;N0 AUTO-LOAO OR UAIN 


412 


020000 


IP- 


20000 


: INTERRUPT PEWING 


413 


100000 


CIE- 


100000 


: CHANNEL INTERRUPT ENABLE 


414 




• 




427 




jTJCSE ARE EQUATES FOR THE KXJll-CA CONTRX STATUS REGISTERS 


428 


177520 


K2CSRA- 


177520 




429 


177522 


K2CSRB' 


177522 




430 


177524 


K2CSRC» 


177524 




431 


177526 


K2CSRE« 


177526 




432 


177530 


K2CSR0- 


177530 




433 


177532 


K2QIR- 


177532 




434 


177534 


K2CSRF- 


177534 




435 


177536 


K2CSRH- 


177536 




436 


177540 


K2CSRJ- 


177540 




437 




a 






438 


000001 


APTENV- 


1 




439 


177766 


CPEREG- 


177766 


;CPU ERROR REGISTER 


440 


000400 


ULZ- 


400 


; CALL TYPOS MITH-LEAO-ZEROS. . . 


441 


000000 


NLZ- 


0 


S...OR NULL-LEAD-ZEROS. 


442 


000401 


SKP1« 


BR*1 


: A COUPLE OF HANDY SKIPS. 


443 


000402 


SKP2- 


BR*2 


444 


000403 


SKP3- 


BR*3 




445 


000003 


Fll- 


3 


; \ 


446 


000004 


Tll- 


4 


s > PROCESSOR TYPE (MFPT) CODES. 


447 


000005 


Jll- 


5 


: / 


448 


000006 


ACK- 


6 




449 


000025 


NACK- 


25 




450 


001000 


STBOT- 


1000 





E2 



KXJll-CA FUNCTIONAL TEST 
TRAP CATCHER 



54a 



000000 



000200 000137 051510 
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•SBTTL TRAP CATCHER 



♦ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 

*A ".♦2. lOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL 

♦TRAPS AND INTERRUPTS THAT MIGHT XCUR. 

♦THE lOT TRAP UHICH IS TAKEN ON THE ILLEGAL TRAP/INT 

♦TRAPS TO THE tSCOPE ROUTINE UHICH (IF THE RETURN PC IS 

♦LESS THAN 1002) uRJMPS TO THE tERROR ROUTINE. 

♦THE JERROR ROUTINE WILL REPORT THE ERROR AS FXLOUS: 

♦ PC=YYYYYY UNEXPECTED TRAP TO XXX 
♦AND RETURN TO THE PROGRAM AT PC=YYYYYY*2 
♦UfCRE XXX=LOCATION OF ILLEGAL TRAP 

♦ YYYYYY=PC AT TIME OF TRAP 

♦NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

♦ CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 

;HALT 

; BRANCH TO 177700 t TIME OUT (NOT ON 
s 11/05) 

: VECTOR TO STARTING ADDRESS 
jUITH PRIORITY LEVEL 7 

; J SOFTWARE DISPLAY REGISTER 
js SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRES(ES) 

JMP WMARB ;;G0 TO START OF PROGRAM 



000000 


000000 


J40CAT: 


HALT 




000002 


000737 




BR 


.-100 


000004 


051510 




.WORD 


$$ARB 


000006 


000340 




.WORD 


340 




000174 




.«174 




000174 


000000 


DISPREG 


..WORD 


0 


000176 


000000 


SWREG: 


.WORD 


0 



F2 



KXJll-CA FUNCTIONAL TEST 
REDEFINE THE VECTOR SPACE. 



550 
551 
552 

553 000000 

554 000004 
555 

556 000024 
557 

558 000034 
559 

560 000070 
561 

562 000100 

563 000104 

564 000110 

565 000114 

566 000120 

567 000124 
566 000130 

569 000134 

570 000140 
572 

573 000144 

574 000150 

575 000154 
577 

578 000160 

579 000164 
580 

581 000174 

582 000176 

583 000200 
584 

585 000204 
586 

587 000214 

588 000(''20 
589 

590 000240 

591 000240 
592 

593 000250 

594 000254 
595 

596 

597 000410 
600 000410 
000414 
000420 
000424 
000430 
000434 
000440 
000444 
000450 
0004S4 
000460 
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.SBTTL REDEFINE THE VECTOR SPACE. 

;****************«**«******««**********«*««*«*«< **************** 

BACK UP... 
»2. 0 i...AND FIX ZERO... 
»2. 0 : AND FIX FOUR 



000000 






.*0 


00000? 


000000 

www 




UORD 


000006 

www 


000000 




.UORD 


000024 

wwt^ 






"=24 


002542 

Wfc a/^b 


000340 


PURV: 


'uORD 


000034 








043002 


000340 




UORD 


000070 






=70 


002542 


000200 


NECV: 


.WORD 


000100 






.=100 


002542 


000300 


BEVNT* 


UORD 


002542 


000300 


PEVNT: 


.M)R0 








.BLKU 


002542 


000340 


PRTYV: 


.UORD 


002542 


000240 


DPRV4: 


.UORD 


002542 


000240 


DPRV8: 


.M)RD 


003042 


000240 


TBIACK: 


.UORO 


002542 


000240 


DPRV12: 


.UORO 






FALCON: 


.BLKU 


000144 






.-144 


056642 


000200 


QIRV: 


.UORD 


056630 


000200 


QIRVl : 


.UORD 


056534 


000200 


QIRV2: 


.UORD 


000160 






.«160 


002542 


000200 


PIOAV: 


.UORD 


002542 


000200 


Pioev: 


.UORD 


000174 






.-174 


000000 






.UORD 


140000 






.UORD 


000137 


051510 


RSTART: 


JMP 


000137 


001622 


DSTART: 


JMP 


000214 






.-214 


002542 


000200 


DMAVrOMAVl: 


002542 


000200 


DMAV2: 


.UORD 


000240 






.-240 






PIRVEC: 




003056 


000340 


PIRQV: 


.UORD 


000250 






.-250 


002542 


000200 




.UORO 


052032 


000200 


NXTIOP: 


.UORD 


000410 






.-410 



055656 
055662 
055666 
055672 
055676 
055702 
055706 
055712 
055716 
055722 
055726 



000340 
000340 
000340 
000340 
000340 
000340 
000340 
000340 
000340 
000340 
000340 



.LIST ME 
lOPVEX: 



.UORD 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 



DISMISS. 

$TRAP. 

DISMISS. 



PR7 
PR7 
PR4 



DISMISS. PR6 

DISMISS. PR6 

2 

DISMISS. PR7 

DISMISS, PR5 

DISMISS. PR5 
BITRAP. PR5 

DISMISS. PR5 
2 



QREQ. 
QREQl. 
QREQ2, 

DISMISS. 
DISMISS. 

0 

140000 
MARS 

START 



FR4 
PR4 
PR4 

PR4 
PR4 



SET PUR (BINIT) VECTOR. 

SET TRAP VECTOR TO POINT TO TRAP HANDLER 

SET NEC7201 (SYNC/ASYNC) VECTOR (T). 

SET BEVNT CLTC) AND.. . 
...PEVNT CZ8036 OR 18254 PIT). 
OPEN 

SET PARITY ERROR. . . 
...DUAL -PORT -RAM UORD 4 (T)... 
...DUAL-PORT-RAM UORO 8 CT)... 
. ..BIACKI CT)... ;FX8X 
...AND DUAL-PORT-RAM UORD 12 CT). 

*** RESERVED FOR "FALCON-BREAK" **♦ 

Q-REQUEST. ARBITER EXECUTES "RTI". 
Q-REQUEST. ARBITER EXECUTES "RESET". 
Q-REQUEST. ARBITER URITES DPR 

PIO PORT A... 
...AND PORT B VECTORS. 



OPEN CDISPREG/SUREG). 
DEFAULT START; DETERMINES OPERATING 

ENVIRONMENT AND INVOKES REMOTE LOADER. 
DIAGNOSTIC START/RESTART. 



.UORD DISMISS. PR4 



DISMISS. PR4 



UNEXPI. PR7 

DISMISS. PR4 
NEXTl. PR4 



I0PV02.PR7 
I0PV03.PR7 
I0Py04.PR7 
I0PV05.PR7 
I0PV06.PR7 
I0PV07.PR7 
I0PV08,PR7 
I0PVO9.PR7 
I0PV10.PR7 
I0PV11.PR7 
I0PV12.PR7 



jOTC 



: DTC channel on k2 
channel 2 on k2 



ik2hhe 



} Vector for unexpected PIRQ interrupts 



s VECTOR FOR UNEXPECTED MMU ERRORS 

! VECTOR THE ARBITER TO LOOK FOR THE NEXT lOP 



G2 



XXJll-CA FUNCTIONAL TEST 
REDEFIfC TKC VECTOR SPACE. 
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601 
602 



000464 055732 000340 

000470 055736 000340 

000474 055742 000340 

001000 



.UORD 
.WORD 
.WORD 
.NLIST ME 

."1000 



I0PV13.PR7 
I0PV14.PR7 
I0PV15.PR7 



RESET PC. 



H2 

KXJll-CA FUNCTIONAL TEST MACRO Y05.02 Thursday 

APT MAILBOX -ET ABLE 







.EVEN 






001166 




$MAIL 






OOII66 


/VAAAAy\ 

000000 


$MSGTY 


.WORD 


091170 


000000 


$FATAL 


.WORD 


001172 


000000 


J-^ESTN 


.UORD 


001174 


000000 


$PASS: 


.WORD 


001176 


000000 


$DEVCT 


.WORD 


001200 


000000 


$UNIT. 




.WORD 


001202 


000000 


$MSGAO 


.UORD 


001204 


000000 


$MSGLG 


.UORD 


001206 




JET ABLE: 


OOlcOo 


AAA 


$ENV: 




.BYTE 


001207 


000 


$ENVM: 


RYTF 


001210 


000000 


$SUREG 


unon 


001212 


000000 


$USUR 




unRD 

. Mwnu 


001cl4 


AAAAAA 

www 


iCPUOP 

• A 
I * 

• ± 


UORD 


001216 


000 


;* 
:* 

!* 

*MAMS1 


BYTE 




AAA 

wyj 


$MTYP1 

;* 

:* 


RYTF 




AAAAAA 


!* 

:* 

$MA0«1 


UORD 




AAA 


!* 

*MAMS2 


BYTE 




AAA 


♦MTYP2 


RYTF 




AAAAAA 


«MA0R2 


VOID 




AAA 


*MAMS3 


RYTF 




AAA 


$MTYP3 


RYTF 




AAAAAA 


♦MA0R3 






AAA 


♦MAMS4 


RYTF 




AAA 


$MTYP4 


RYTF 




AAAAAA 


«HA0R4 


UORD 


AA1 0Y& 


AAAAAA 


♦VECTl 


.UORD 




AAAAAA 


♦VECT2 


.UORD 


rtAI OAO 


AAAAAA 


$BASE 




.UORD 




AAAAAA 


$DEVM 




.UORD 




AAAAAA 


$C0U1 




.UORD 


.VM 05rt 


AAAAAA 
WWW 


ICDW2 




.UORD 




AAAAAA 


muo 




.UORD 




AAAAAA 
WWW 


(OOUl 




.UORD 


A/M oc:& 


AAAAAA 


(D0U2 




.UORD 


AA1 3&A 


AAAAAA 


$00U3 




.UORD 


AA1 pILO 


wVAAAA^ 


$00U4 




.UORD 


001264 


000000 


$00U5 




.UORD 


001266 


000000 


$00U6 




.UORD 


001270 


000000 


$D0U7 




.UORD 


001272 


000000 


$D0U8 




.UORD 


001274 


000000 


$D0U9 




.UORD 


001276 


000000 


(DOUlO 


- .UORD 


001300 


000000 


^DOUll 


- .UORD 
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AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AMAMSl 
AMTYPl 



AMADRl 

AMAMS2 

AMTYP2 

AMA0R2 

AMAMS3 

AMTYP3 

AMA0R3 

AHAHS4 

AMTYP4 

AHA0R4 

AVECTl 

AVECT2 

ABASE 

ADEVM 

ACOUl 

AC0U2 

AOOUO 

ADDUl 

AD0U2 

A0DW3 

AD0U4 

A00U5 

A0DU6 

A00U7 

Mxm 

ADDW9 

AODUlO 

ADOUll 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SUITCH REGISTER 
USER SUITCHES 
CPU TYPE. OPTIONS 
BITS 15-11-CPU TYPE 

11/04=01 . 11/05=02 . 11/20=03 , 11/40=04 , 11/45=05 
11/70=06. PDQ=07.Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;iHIGH ADDRESS. M.S. BYTE 
:;MEM. TYPE.BLK*1 
MEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 
;;H1GH ADDRESS. BLK#1 
MEM. LAST AD0R.=3 BYTES. THIS UORD AND LOU OF "TYPE" ABOVE 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE. BLK#2 
MEM. LAST ADDRESS. BLK»2 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE. BLK« 
MEM. LAST ADDRESS. BLK*3 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE. BLK#4 
HEM. LAST ADDRESS. BLKM 
I i INTERRUPT VECT0R#1.8US PRIORITYW 
J INTERRUPT VECT0R#2BUS PRI0RITY#2 
: :BASE ADDRESS OF EQUIPMENT UNDER TEST 
J DEVICE MAP 

{CONTROLLER DESCRIPTION UORDM 
: CONTROLLER DESCRIPTION W0RD«2 
i: DEVICE DESCRIPTOR UOROM 
: DEVICE DESCRIPTOR U0RD«1 
(DEVICE DESCRIPTOR U0RD«2 
(DEVICE DESCRIPTOR UGRD«3 
DEVICE DESCRIPTOR UORDM 
DEVICE DESCRIPTOR U0RO«5 
DEVICE DESCRIPTOR U0RD«6 
DEVICE DESCRIPTOR U0RD«7 
DEVICE DESCRIPTOR HQRDM 
DEVICE DESCRIPTOR W0RO#9 
DEVICE DESCRIPTOR UOROWO 
DEVICE DESCRIPTOR UCR0#11 



id 

KXJll-CA FUNCTIONAL 
APT MMIL80X-ETA8LE 



TEST 



001302 000000 

001304 000000 

001306 000000 

001310 000000 
001312 
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$0OU12 
$0OU13 
»D0U14 
lOOUlS 
♦ETEhD 

.rExn 



.UORD A00U12 

.UORO A00U13 

.WORD A00U14 

.UORO A00U15 



DEVICE DESCRIPTOR U0RD#12 
DEVICE DESCRIPTOR U0R0#13 
DEVICE DESCRIPTOR U0RD#14 
DEVICE DESCRIPTOR U0RD*15 



r 



J2 

KXJll-CA FUNCTIONAL TEST 
PROGRAM CONTROL PARAMETERS 



610 




611 




612 




613 




614 




615 




616 




617 




618 001312 


000005 


619 




620 001314 


177530 


621 001316 


177532 


622 001320 


175000 


623 001322 


160000 


624 001324 


174400 


625 001326 


175700 


626 001330 


177000 


627 001332 


177520 


628 




629 


000010 


630 




631 001334 


177520 


632 001336 


177522 


633 001340 


177524 


634 




635 001342 


000001 


636 




637 




638 001344 


000001 


639 




640 001346 


000001 


641 001350 


000001 


642 001352 


000001 


643 




644 001354 


000000 


645 001356 


000000 


651 




652 




653 001360 


000000 


654 001362 


000000 


655 001364 


000000 


656 001366 


000000 


657 001370 


000000 


658 




659 001372 


000000 


660 001374 


000000 


661 001376 


000000 


662 001400 


000000 


663 001402 


000000 


673 001404 


000000 


674 001406 


000000 


675 001410 


000000 


676 001412 




677 
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SBTTL WJOGRAM CONTRO. PARAMETERS 

THE FOLLOWING PARAMETERS GOVERN THE BEHAVIOR OF THE PROGRAM AND 
ARE CONDITIONALLY CONFIGURED lAU PROCESSOR TYPE AT ASSEMBLY TIME. 



FUNCTION 





ITEM 


SBC 


iCPTYP 


: Jll 




icSR: 


177530 


T : 


$QIR: 


177532 


T : 


*DPR: 


175000 


T : 


$DPRQ: 


160000 


T : 


$OMA: 


174400 


T ; 


$SL2: 


175700 


T ! 


♦PIO: 


177000 


T : 


ICLK: 


177520 


J ! 


*PNUM« 


<.-*CSR>/2 ;TFJ; 


icSRA: 


177520 ;T : 


$CSRB: 


♦CID: 177522 




$CSRC:*LEDS:*TCID: 177524 


IQDLY: 


1 


•TFJ; 



RFLAG: 1 

TPROTR: 1 
HLTFLG: 1 
BFLAG: 1 

SLOCOO: 
SLOCOl: 



.UORO 
.WORD 



0 
0 



PRIMARY CONTROL/STATUS REGISTER. 
Q-BUS INT (VECTOR) REGISTER. 
DUAL -PORT -RAM LOCAL ADDRESS. 
DUAL -PORT -RAM Q-BUS BASE ADDRESS. 
AMZ8016 (OR QMIC) DMA CHIP BASE. 
SECOND SERIAL LINE ADDRESS. 
Z8036 PIO/PIT BASE ADDRESS. 
LINE CLOCK (BEVNT) CSR. 

;TFJ; NUMBER OF VARIABLE ITEMS. 

SECONDARY CONTROL/STATUS REGISTERS... 
;TFJ; . , .INCLUDES CID ON F/J. . . 
sTFJ; ...INCLUDES LEDS (AND CID ON T). 

Q-IACK WAIT LOOP CONTROL... 
...STAND-ALONE (1) == 163. MSEC... 

APT-AUTO (62.) == 10.1 SEC 

FLAG FOR TRAP THROUGH 24. 0-EXPECTED 5FX8JC 

1-UNEXPECTED. ;FX8JC 
FLAG FOR TRAP CAUSED BY WRITE TO TPROO 
SAY HALT TRAP UNEXPECTED 
FLAG FOR TRAP THROUGH 130. 0«EXPECTED jFXSJC 

1=UNEXPECTED. ;FX8JC 



; THESE 

EXPOAT; 

RECOATi 

COUNT: 

FLAG: 

ERRCNTi 

; THESE 

DCOUNTi 

ALLCTR; 

LOOPIN; 

SAVSPl; 

SAVSP2; 

CIFLAG; 

C2FLAG; 

SOURCE! 

TSTLOC: 



LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA. 
.WORD 0 {STORES EXPECTED (GOOD) DATA FOR COMPARISONS 

.WORD 0 J STORES RECIEVED DATA TO BE VERIFIED 

.WORD 0 ; ERROR INDICATOR FOR FLOATING POINT TESTS 

.WORD 0 ;USED TO STORE "FLAG" CONDITIONS 

.WORD 0 : STORAGE FOR ERROR COUNT 

LXATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
.WORD 0 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 



0 
0 
0 
0 
0 
0 
0 

20. 



{STORAGE FOR UNEXPECTED TRAP DATA 

» II M II 



DTC channel 1 event indicator 
DTC channel 2 event indicator 
Scratch location 
Scratch locations 



il(2hhe 
;k2hhc 



}k2hhe 
ik2hhe 



I<2 



KXJll-CA FUNCTIONAL TEST 
GLOBAL SUe«(X/riNES SECTION 

679 
680 
601 
602 
683 
684 
685 
686 
687 
688 

689 001462 010046 

690 001464 010146 

691 001466 010246 

692 001470 012700 177600 

693 001474 004737 001562 

694 001500 004737 001576 

695 001504 004737 001576 
6% 001510 012700 172200 

697 001514 004737 001562 

698 001520 004737 001576 

699 001524 004737 001576 

700 001530 004737 001562 

701 001534 004737 001576 

702 001540 004737 001576 

703 001544 012737 000027 
704 

705 001552 012602 

706 001554 012601 

707 001556 012600 

708 001560 000207 
709 

710 
711 

712 001562 012702 000020 

713 001566 012720 077406 

714 001572 077203 

715 001574 000207 
716 

717 
718 

719 001576 005001 

720 001600 010120 

721 001602 062701 000200 

722 001606 022701 001600 

723 001612 001372 

724 001614 012720 177600 

725 001620 000207 
754 
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.SBTTL a.OBAL SUBROUTINES SECTION 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 



MMU GLOBAL SUBROUTINES 

ROUTINE TO INITIALIZE MEMORY MANAGEMENT 



172516 



MMU: MOV RO.-(SP) 

MOV Rl.-(SP) 

MOV R2.-(SP) 

MOV #177600,R0 

JSR PC.PDR 

JSR PC. PAR 

JSR PC. PAR 

MOV #172200. RO 

JSR PC.PDR 

JSR PC. PAR 

JSR PC, PAR 

JSR PC.PDR 

JSR PC. PAR 

JSR PC. PAR 

MOV #27. a#l 72516 

MOV CSP)*,R2 

MOV CSP)*.R1 

MOV (SP)*,RO 

RTS PC 



ROUTINE TO INITIALIZE PDR'S 



POR: 
1«: 



s 



MOV #16. ,R2 

MOV #77406. (R0)» 

SOB R2.1I 

RTS PC 



SAVE CONTENTS OF REGISTERS 



INIT I AND D USER POR' 
INIT I USER PAR'S 
INIT D USER PAR'S 



INIT 
INIT 
INIT 
INIT 
INIT 
INIT 



AND 0 SUP PDR'S 
SUP PAR'S 
SUP PAR'S 

0 KER PDR'S 

S 
S 

INIT MMR3: ENABLE 22 BIT MAPPING 
AND KERNEL, USER AND SUPR DATA SPACE 
RESTORE REGISTERS 



AND 
KER PAR' 
KER PAR' 



sROUTINE TO INITIALIZE PAR'S 

PAR: aR Rl 

1*: MOV Rl.(RO)* 

ADD #200, Rl 

CMP #1600, Rl 

BNE 1$ 

MOV #177600,(R0)* 

RTS PC 

************************************************************************ 



RETURN 



sINIT CNTR 
ilNIT PDR 

: RETURN 



SETUP TO INIT PAR 
INIT PAR 

GET READY FOR NEXT PAR 
REACHED A PAR7 
BRANCH IF NOT 
INIT PAR7 
RETURN 



L2 



KXJll CA FUNCTIONAL TEST 
PROGRAM START/RESTART 



756 
757 
758 
759 

760 001622 

761 001622 
763 



001624 
001630 
001632 
001636 
001640 

001644 
001652 
001660 
001666 
001674 
001702 
001710 
001716 
001722 
001730 



764 
765 
766 
767 
76a 002046 

769 002046 

770 002052 

771 002060 

772 002066 
773 

774 

775 002072 



000005 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
112737 
012737 



001100 
001140 

001100 

040206 
000340 
044314 
000340 
043002 
000340 
037662 
001160 
000001 
001730 
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.SBTTL PROGRAM START/RESTART 

PROGRAM START/RESTART HERE. 

START: RESTART: 
RESET 

• SBTTL INITIALIZE THE COMMW TAGS 
!f CLEAR THE COMMON TAGS C$CMTAG) AREA 



MOV 
CLR 
CMP 
BNE 
MOV 

! J INITIALIZE A 
000020 MOV 
000022 MOV 
000030 MOV 
000032 MOV 
000034 MOV 
000036 MOV 
037654 MOV 
CLR 

001. > MOVB 
OOi: 10 MOV 



0$CMTAG.R6 
CR6)* 
«SUR,R6 ;:DONE? 
.-6 

tfSTACK.SP 
FEU VECTORS 

SCOPE. WIOTVEC 
«340.a*I0TVEC*2 
«ERR0R.a#EMTVEC 
*340,a#EMTVEC*2 
*$TRAP,a*TRAPVEC 



*340.a*TRAPVEC*2:LEVEL 7 



FIRST LOCATION TO BE CLEARED 
; {CLEAR fCMORY LOCATIW 

;:L0OP BACK IF NO 
SETUP THE STACK POINTER 

isIOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

;;TRAP VECTOR FOR TRAP CALLS 



001736 


013746 


000004 






MOV 


001742 


012737 


001776 


000004 




MOV 


001750 


012737 


177570 


001140 




MOV 


001756 


012737 


177570 


001142 




MOV 


001764 


022777 


177777 


177146 




CMP 


001772 


001012 








BNE 


001774 


000403 








BR 


001776 


012716 


002004 




300001: 


MOV 


002002 


000002 








RTI 


002004 


012737 


000176 


001140 


30001* : 


MOV 


002012 


012737 


000174 


001142 




MOV 


002020 


012637 


000004 




30002$: 


MOV 


002024 


005037 


001174 






aR 


002030 


132737 


000200 


001207 




BITB 


002036 


001403 








BEQ 


002040 


012737 


001210 


001140 




MOV 


002046 








30003*: 





$ENDCT.$EOPCT 
♦ESCAPE 
*1.$ERMAX 
# *LPERR 

!;SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
j;EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

a#eRRVEc.-csp) ijSave error vector 



SETUP END-OF-PROGRAM COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
SETUP THE ERROR LOOP ADDRESS 



#30000*. a«ERRVEC 
«DSUR,SUR 
flODISP. DISPLAY 
«-l.aSUR 
30002* 

30001* 

#30001*. CSP) 



;!SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SUICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SUR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT » -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 

; POINT TO SOFTWARE SWR 



«SUREG.SUR : 
WISPREG, DISPLAY 
CSP)«.8«ERRVEC ssRESTORE ERROR VECTOR 



*PASS 

#APTSIZE.*ENVM 

30003* 

«*SUREG.SUR 



CLEAR PASS COUNT 
; J TEST USER SIZE UNDER APT 
jjYES.USE NON-APT SWITCH 
;:NO.USE APT SWITCH REGISTER 



,S8TTL CONFIGURE P-TABLES lAW CPU TYPE 



INIT A FEW MORE THINGS. 



106427 
012737 
013737 
005037 



000340 
000004 
000002 
001102 



INIT: 



000002 
000006 



MTPS 

MOV 

MOV 

aR 



#PR7 

«0T,a#2 
9»2.9ff6 
*TSTrt1 



RAISE CPU. 
LOAD VECTOR AREA 

IRESET THE TEST NUMBER 



013700 177524 



;LETS CALCULATE THE VECTOR THAT THIS PARTICULAR lOP IS GOING TO 
INTERRUPT THROUGH. 

MOV a«<2CSRC,R0 jGET ID SWITCH SETTING 



M2 

KXJll-CA FUNCTIONAL TEST 
CONFIGURE P-TABLES lAU CPU TYPE 
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' 'O 


UUcU (D 


ni (W13 






777 

III 










77A 

1 lO 




\A/X\A/ / 






770 

/ 17 






1 77A1 7 

XII "rX / 




1 Ov 




073397 


1 77774 




1 ox 






OS0742 




7A5 




000A10 






7A7 












00?1?4 


047700 


177417 

XII ^X 1 




1 VJ 


oo?i 

WCX^V 


07?0?7 

V 1 C\JC I 


1 77776 






W£X47*v 


06P700 

VVC ' w 


000400 




787 


00?140 




036434 




788 










789 


002144 


013737 

VAw • w • 


050742 

V^V • ~c 


001200 

WAC W 


700 


002152 

Wb A^b 


012737 

VAb • ^ • 


000256 


000254 

VWCa/^ 


» ~x 


wcxvv 


012737 

VAC " J " 


000004 


000256 

VWCa^V 






01P70P 

VAC • VC 


000016 

WW AW 




793 




012700 

VAC ' W 


000410 

W^^TAV 




794 


002176 


010001 

V * VWA 






795 


002200 


062701 

WC ' VA 


000002 

WVWfc 




796 


002204 


010120 

VAVACV 






797 


002206 


012720 

VAC ' CV 


000004 

WVW^ 




798 


002212 

Wbfc Ab 


077207 








002214 

Ww w A~ 


004737 


002250 




fl JO 










"01 


002220 


012737 


001622 


000202 


802 


002226 


012700 


051034 




803 


002232 


012701 


000225 




804 


002236 


005020 

Vb V 






805 


002240 


077102 






806 


002242 


104414 






807 










808 


002244 


000137 


003064 




809 










810 










811 

WAX 










812 










813 










814 










815 










816 

WAV 










817 


002250 


012737 


177777 


002426 


818 


002256 


004737 


001462 

W A^VC 




019 

VA 7 


002262 


013700 

VA W f W 


001324 




820 

Vfc V 


002266 


005060 

W JWV 


000054 




821 

VC A 


002272 


013700 

VA V • W 


001326 




822 

VwC 


002276 


112760 

A AC f W 


000030 


000004 


823 

VCa V 


002304 

Wb VV^ 


112760 

A AC f W 


000030 

VWVs/V 


000014 

WWA^ 


824 


002312 

Wb w AC 


01P737 

VXC f <J f 


002614 


000024 


825 


002320 


012737 


000340 


000026 


826 


002326 


005037 


177766 




828 


002332 


012737 


002406 


000240 


829 


002340 


112777 


000001 


176762 


830 


002346 


012737 


000001 


001352 


831 


002354 


012737 


000001 


001344 


832 


002362 


012777 


002000 


176724 


833 


002370 


005037 


177520 





31: 



2$: 



It: 



4$: 



5i: 



7*: 



MOV 


R0.R2 


RTT 




RNF 




RTr 


*trvo Rp 


ASH 


#-'».R2 


MOV 


R2.9»I0P.I0 


BR 


2* 

C T 


BTC 


#tC360 RO 


ASH 


9-2 RO 

■ C • r» V 


ADD 


MOO RO 


MOV 


RO.INTVEC 


MOV 


a#IOP ID.*UNIT 


MOV 


1^256. S#254 


MOV 


<H0T.a*256 


MOV 


#14.. R2 


MOV 


*410,R0 


MOV 


RO.Rl 


ADD 


K.fil 


MOV 


R1.(R0)+ 


MOV 


#101. (RO)* 


SOB 


R2.1$ 


CALL 


KXINIT 


MOV 


♦START. a#202 


MOV 


#£L0G.RO 


MOV 


♦ELOGN.Rl 


CLR 


(RO)* 


SOB 


R1.5* 


I«SUR 


JMP 


AGAIN 


■UNIQUE INITIALIZATION. 



IF WE'RE NOT IN STAND ALONE CONFIG. 
...SKIP NEXT FEU INSTRUCTIONS 
MASK OFF ID SWITCH FIELD 
SHIFT IT OVER 
LOAD lOP.ID 



MASK OFF THE ID SWITCH FIELD 
SHIF^^ IT RIGHT 2 POSITIONS 
ADO IN THE BASE INTERRUPT VECTOR 
.. AND THERE UE HAVE IT. 

UPDATE MAIL BOX 
FIX VECTOR IN SBC 
...WITH STANDARD STUFF 
NUMBER OF VECTORS TO FIX 
STARTING AT ADDRESS 410 



PATCH VECTOR AREA 

LOOP CONTROL 
XCT BOARD-UNIQUE INITIALIZATION. 

ENABLE OIAG RESTART ON "200G". 



: CLEAR THE ERROR LOG (KILLS REMOTE). 

; CHECK MODE (APT VS STANDALONE)... 
;...AND GET INITIAL $SUR AND $QDLY. 
i SKIP OVER THE INITIALIZERS. 



SOME OF THE CHIPS ON THESE BOARDS MAY DO FUNNY THINGS 
(OR PREVENT US FROM DOING THE RIGHT THINGS) ON POUER-UP. 
THESE ROUTINES WILL INIT. RESET. DISABLE ... OR WHATEVER. 
BUS -ERRORS ARE IGNORED (TRAP4X - -1). 



KXINIT: MOV 
JSR 
MOV 
CLR 
MOV 
MOVB 

novB 

MOV 
MOV 

aR 

MOV 

novB 

MOV 
MOV 
MOV 

aR 



#-l.TRAP4X 

PC.MMU 

$DMA.RO 

54(R0) 

♦SL2,R0 

#<3*BIT3>.4(R0) 

#<3*BIT3>.14(R0) 

«RSTRAP,PURV 

#340.PURV*2 

8*177766 

«PIRTRP.a«PIRVEC 

*1.8»PI0 

*l.a«8FLAG 

#l.a«RFLAG 

#2000.a»CSR 

a0K2CSRA 



DISMISS BUS ERRORS. 
INIT K2 HMU REGISTERS 

INIT (RESET) AriZ6016 DMA CHIP. 

INIT (RESET) NEC7201 SYNC/ASYNC CHIP. 

BOTH CHANNELS. 
SET UP RESET TRAP VECTOR. !FX8JC 
PRIORITY 7. jFX8JC 
Clear the CPU error register 

lACTION ON UNEXPECTED PIRQ ERRORS 
INIT (RESET) Z8036 PIO CHIP. 
SAY TRAP THRU 130 NOT EXPECTED. jFX8JC 
SAY TRAP THRU 24 NOT EXPECTED. ;FX8JC 
ENABLE TRAP ON Q-6US RESET. iFX8JC 



N2 
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CONFIGURe P-TABLES lAU CPU TYPE ^ 

834 0023^4 005037 177524 CLR 9«K2CSRC ; > EVERYTHING OFF 

835 002400 005037 177540 aR a«<2CSRJ / ^ " ^ ^ * " ^ ^ ^ 

836 002404 000207 RETURN 



r 



»<'XJll-CA FUNCTIONAL TEST HACRO Y05.02 

BUS-ER»W AND ILLEGAL TRAP HANtt.ERS. 



Thursday 03 Apr 86 14:11 Page 26 



836 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 

849 002406 

850 002412 

851 002416 

852 002422 

853 002424 

854 002426 

855 002430 

856 002432 

857 002440 

858 002442 

859 002446 

860 002454 
861 

862 002456 

863 002464 

864 002470 
002476 
002504 

865 

866 002506 

867 002512 

868 002514 
669 002516 

870 002522 

871 002526 

872 002532 

873 002534 

874 002540 

875 002542 
876 

877 
878 
879 

880 002544 

881 002544 

882 002SS2 

883 002554 

884 002560 

885 002562 
002570 
002576 

886 002600 

887 002604 

888 002612 

889 002614 

890 002614 



005037 
012746 
022627 
001015 
005727 
000000 
001412 
023727 
001402 
013716 
052766 
000432 

016637 
011637 
012737 
012737 
104001 

113700 
001564 
006300 
016000 
162700 
020027 
103402 
012700 
010016 
000002 



032737 
001420 
005737 
001407 
012737 
012737 
104002 
005237 
042737 
000447 



177772 
000240 
000004 



002426 177777 
002426 

000002 000002 



177776 001122 
001120 

046217 044746 

045442 044752 



001102 



040446 

000002 
037632 

037632 



000200 177530 
001346 

002762 044746 

045206 044752 

001346 

000200 177530 



.S8TTL BUS ERROR AND ILLEGAL TRAP HWDLERS. 

COME HERE FROM *SCOPE ON ANY UNDEFINED TRAP (IQT) 
WITH VECTOR ADDRESS ON TOP OF THE STACK. 
BUS-ERROR (VECTOR 4) IS A SPECIAL CASE UHERE "TRAP4X" 
DEFINES T« ACTION TAKEN AS FXLOWS: 

0 = ERROR. REPORT AND ABORT TEST. 
-1 = DISMISS AW RETURN "V" - 1. 
ADR - DISMISS AM) RETURN TO USER AT ADDRESS SPECIFIED. 



PIRTRP: 


CLR 


a#177772 


s CLEAR T« PIRQ REG 




MOV 


#240. -CSP) 




UNXTRP: 


CMP 


(SP)*.*4 


I UAS IT A BUS-ERROR ?? 




BNE 


TRAPE 


s BR IF NOT. 




TST 


CPO* 


; UAS IT ANTICIPATED ?? 


TRAP4X: 


.WORD 


0 






BEQ 


TRAPE 


! ERROR AND ABORT IF NOT. 




CMP 


TRAP4X.#-1 


! ALTERNATE RETURN PC ?? 




BEQ 


n 


; SKIP IF NOT... 




MOV 


TRAP4X,(SP) 


S...ELSE. TAKE NEW PC. 


1(: 


BIS 


#2.2(SP) 


; SET "V" IN CALLERS PSU... 




BR 


DISMISS 


J... AND RETURN. 


TRAPE: 


MOV 


-2CSP),*B0A0R 


; GET BAD TRAP VECTOR... 




MOV 


(SP),$GOAOR 


J...AND PC AT TIME OF HAPPENING. 




MOV 


«UNXT.EMADR 


!.\\ 




MOV 


«eF7.ESA0R 


;; >> ERROR 1. UNEXPECTED TRAP THRU 



ERR0R*1 



ABORT: 



1^ 



MOVB 

BEQ 

ASL 

MOV 

SUB 

CMP 

BLO 

MOV 

MOV 



DISMISS: RTI 



♦TSTrf1.R0 

AGAIN 

RO 

♦SU08TBL(R0),R0 

#2.R0 

R0.#»E0P 

1( 

♦♦EOP.RO 
RO.(SP) 



;// 

...AND FALL THRU 
GET CURRENT TEST NUMBER. 
BR IF NONE 

SHIFT UP TO A UORD OFFSET. 
GET NEXT TEST DISPATCH ADDRESS. 
...AND BACK IT UP 1 UORD. 
VALID ADDRESS ?? 
USE IT IF SO. 
; OTHERWISE, TAKE END-PASS. 

s NEXT TEST OR END-PASS. 



ALWAYS COME HERE ON TRAP THROUGH 24. 



NMITRP: 



jFX8JC 
;FX8JC 
;FX8JC 



032737 004000 177530 



It: 

RSTRAP: 



BIT #BIT07,8#K2CSRD sDIO UE TRAP DUE TO WRITE TO TPRO? 

BEQ RSTRAP sNO 

TST TPROTR :WAS IT EXPECTED (TPROTR • ZERO) 
BEQ i( 

MOV tfUNXTPR.EMADR ;s\V _ 

MOV #NOSIG,ESAOR i; » ERROR 2. UNEXPECTED TRAP CAUSED BY WRITE TO TPRO 
ERR0R*2 

INC TPROTR {SAY TRAP GCCUREO 

BIC «BIT07.8«K2CSR0 :aEAR FLAG 

BR mioc 

sFX8%JC 

BIT «BIT11,S«K2CSRD :WAS TRAP CAUSED BY BINIT? 



c 
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001 APO 








BEQ 


HALTRP 




(77c \nJCvC^ 




001 %AA 






TST 


a«RFLAG 


UA<; TRAP FyPFrTFD? 




001407 








BEQ 


1* 


NO CAl 1 FUROR 




012737 


002734 


044746 




MOV 


«UNXRES.EMADR 










044752 




MOV 


«NQSIG.ESADR 


. >> FRROR IJNFyPFCTFD RFVT TRAP 


002646 


104003 








ERR0R*3 


;// 


00P6^ 


005237 


001344 




It • 


INC 


a«RFLAG 


SAY TRAP OCCURRFD 


896 0026S4 


042737 


004000 


177530 




BIC 


«4000.8«177530 


AfC CLEAR FLAG 


897 002662 


000423 








BR 


mEM) 


AND EXIT 


898 002664 








HALTRP: 








899 002664 


032737 


001000 


177530 




BIT 


«BIT09.a«K2CSRD 


WAS TRAP CAUSED BY BHALT? 


900 Q02hl2 


001417 








BEQ 


rtUEM) 


;N0 


901 002674 


005737 


001350 






TST 


MHLTFLG 


iUAS TRAP EXPECTED? 


902 002700 


001407 








BEQ 


11 




903 002702 


012737 


003015 


044746 




MOV 


«(JNXHLT.EHM)R 


!;\\ 


002710 


012737 


045206 


044752 




MOV 


«NOSIG.ESAOR 


» ERROR 4. UNEXPECTED BUS HALT 


002716 


104004 








ERROR «4 


i;// 


904 002720 


005237 


001350 




1$: 


INC 


a«HLTFLG 


iSAY HALT TRAP OCCURRED 


905 002724 


042737 


001000 


177530 




BIC 


«BIT09.9«K2CSRD 


saEAR HALT FLAG IN CSR 


906 002732 


000002 






rtllEM}: 


RTI 


! RETURN, :FX8JC 


907 002734 


125 


116 


105 


UNXRES: 


.ASCIZ 


/UNEXPECTED RESET TRAP/ 


908 002762 


125 


116 


105 


UNXTPR: 


.ASCIZ 


/UNEXPECTED TPRO URITE TRAP/ 


909 003015 


125 


116 


105 


UNXHLT: 


.ASCIZ 


/UNEXPECTED HALT 


TRAP/ 


910 








.EVEN 








911 
















912 








; ALWAYS COME HERE ON TRAP TWOUGH 130. 


913 

914 003042 


005737 


001352 




BITRAP: 


TST 


3«BFLAG 


; UAS TRAP EXPECTED? 


915 003046 


001002 








BNE 


1< 


s NO, JUST DISMISS. 


916 003050 


005237 


001352 






INC 


a«8FLAG 


; SAY TRAP OCCURRED. 


917 003054 


000002 






11: 


RTI 




: AND RETURN. 



:FX8JC 
;FX8JC 



:FX8JC 
;FX8X 
SFX8X 



918 
919 
920 

921 003056 

922 003062 
923 

924 
925 

926 003064 

927 003066 

928 003072 

929 003076 

930 003100 

931 003102 
932 

933 003154 

934 003154 

935 003156 
936 

937 
938 



sFX8X 
:FX8X 
jFXSJC 
JFX8JC 
:FX8JC 
sFXSJC 
:FX8JC 



005037 
000002 



000005 
013746 
104401 
104405 
000425 
200 



000230 
000400 



177772 



050742 
003102 



COME HERE ON UNEXPECTED PIRQ INTERRUPT IN ARBITER 



UNEXPI: 



CLR 
RTI 



8#177772 



iCOrC HERE ON END OF PASS 
AGAIN: 



103 



132 



II: 
2$: 



RESET 
MOV 
TYPE 
TYPDS 
BR 

.Asaz 

.EVEN 

SPL 
BR 



a#IOP.ID.-(SP) 
.11 

2$ 

<CRLF>/CZKXA 



0 

TSTl 



; Clear the PIRQ 



! FRESH START 

{PUSH lOP ID NUrOER ONTO STACK 
sTYPE ID NUMBER 
FUNCTIONAL TEST OF KXJll-CA ID# / 



SET CPU LEVEL 0.. 
;...AND FALL THRU. 



003160 000004 

003162 012706 001100 

003166 012737 177777 



002426 



J11K2.MAC 

;***********««********♦*«*************************************** 

*TEST 1 OCJll CPU 

TSTl: SCOPE 

MOV #STACK.SP SET A aEAN STACK. 

MOV ♦-1.TRAP4X J ; DISMISS BUS-ERRORS. 



D3 
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003174 
003200 
003202 
003206 
003212 
003214 

003230 
939 003230 
940 
941 
942 
943 
944 
945 
946 

947 003230 
003236 
003244 

948 003246 

949 003250 

950 003254 
951 

003256 

952 
953 

054 003260 

955 003266 

956 003272 

957 003274 
956 

959 003300 
%0 003302 



003302 

%1 
%2 

%3 003304 
964 003312 
%5 003316 
%6 003322 
%7 003326 
%8 003332 
%9 003336 

970 003342 

971 003346 

972 003350 



003350 

973 003352 

974 003356 

975 003362 
976 

977 003366 



005037 
000402 
000137 
104415 
000406 
040 



012737 
012737 
000240 
000007 
022700 
001401 



104005 



012737 
005037 
102403 
005737 

102001 



104006 



012737 
005737 
005737 
005737 
005737 
005737 
005737 
005737 
000403 



104007 
005037 
005037 
005737 

001401 



044742 

003404 
003214 

040 



104 



\ DCJll CPU\ 



aR EMPRE 

BR 30005$ 
30004«: JMP TST2 
30005*: TJNAME. .♦4 

BR 30006$ 

-ASCIZ 

.EVEN 

30006$: 
JllREG: 

This test does a 

folks; if Me got 

functional. 

The test accesses the on chip registers 
been accessed during the initialization 
up routine. 



CLEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
..AND SKIP OVER THE ASCII. 



003556 
045206 



000005 



044746 
044752 



rudimentary test of the DCJll chip. Let's face it 
through the power up stuff then the ; DCJll is probably 

Many of the registers will have 
micro- routine, and the power 



177777 
177766 

177766 



003350 
177776 
177772 
177752 
177572 
177574 
177576 
172516 



177766 
002426 
177772 



002426 100$: 



101$: 



002426 1$: 



20$: 



2$: 



MOV tfCPUER.EMADR 

MOV #NOSIG.ESADR 
NOP 
hFPT 

CMP #5,R0 

BEQ 100$ 



ERR0R«5 



SET ERROR MESSAGE. . . 

. . .AND SIGNATURE POINTERS. . . 

...ERROR UILL BE CALLED LATER. 

;Uhat type of processor is this? 
:5> DCJll micro -processor 
{Branch if it's a DCJll 

;\\ 

>> ERROR 5, 



MOV 

aR 

BVS 

TST 

BVC 



#-liTRAP4X 

a#ir7766 

101$ 

a#177766 
1$ 



; Mron^ environment or we have a 
: major problem. 
: Anticipate NXM 

;Urite CPU error register with zeros 
;NXM sets the V bit 
{Access CPU error register, (internal 
; register access BS<1:0> ■ 1,1) 



ERR0R»6 



5\\ 



» ERROR 6, TIME OUT ON ERROR REGISTER ACCESS 



{Access 
MOV 

TST 
TST 
TST 
TST 
TST 
TST 
TST 
BR 



#20$,TfiAP4X 
»#177776 
80177772 
»#177752 
a#177572 
a#177574 
a#177576 
8#172516 
2$ 



!// 

internal registers of the DCJll 

{Action on I/O timeout 
{Access PSU 
{Access PIRQ 

{Access Cache Hit/Miss register 



{Access Memory Mngmnt Reg 

{Access Memory Mngmnt Reg 

{Access Memory Mngmnt Reg 

{Access Memory Mngmnt Reg 



ERR0R*7 
aR a#177766 
aR TRAP4X 
TST a#177772 



{W 

: » ERROR 7, 

{// 



BEQ 



3$ 



Access PIRQ. It should have been 

cleared by the initialization microroutines. 



E3 
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003370 104010 
979 003372 005737 177752 
960 003376 001401 
981 
982 

005400 104011 
983 003402 

003402 000400 

984 



003404 000004 

003406 012706 001100 

003412 012737 177777 002426 

003420 005037 044742 

003424 000402 

003426 000137 005652 

003432 104415 003440 

003436 000413 
003440 040 



040 



114 



003466 



985 



003466 

986 
987 
988 
989 

990 003466 
003474 
003502 

991 003504 

992 003512 

993 003516 

994 003522 

995 003524 



003524 
9% 003526 
997 003532 
998 
999 

1000 003536 
1001 

003540 

1002 

1003 003542 
1004 

1005 003550 
1006 



012737 
012737 
000240 
012737 
005737 
005737 
000401 



104012 
005037 
005737 



001401 

104013 
132737 
001001 



003571 044746 
045206 044752 

003524 002426 

177746 

177750 



002426 
177746 



3$: 



4$: 



ERROR* 10 
TST 8#177752 
BEQ 4$ 



ERR0R*11 



; >> ERROR 10. 
;// 

Access the Cache Hit/Miss Register 
Since cache isn't implemented mc 
should be logging all misses 

>> ERROR 11, 

// 



BR TST2 ; ; 

*TEST 2 LXAL K2 REGISTERS 

TST2: SCOPE 



\ LOCAL K2 REGISTERSX 



SET A CLEAN STACK. 
DISMISS BUS ERRORS. 
CLEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
.AND SKIP OVER THE ASCII. 



MOV *STACK,SP 

MOV #-l,TRAP4X 

aR EMPRF 

BR 30" ' ' 

30007$: JMP TST 

30008*: T*NAfC. .♦4 

BR 30004$ 
.ASCIZ 
.EVEN 

30009*: 

; 

;*TEST 2.1 SYS REGISTERS 
T2.1:: 

;This test Mill access the system registers. This causes a DCJll bus cycle 
swith signals BS<1:0> = 0,1 



5$: 



MOV 
MOV 
NOP 

MOV 
TST 
TST 
BR 



#SYSER.EMA0R 
«N0SIG.ESA0R 

#5».TRAP4X 
a#177746 
8#1 77750 
7$ 



ERROR* 12 
aR TRAP4X 
TST 8#177746 



SET ERROR MESSAGE.. . 
. . .AND SIGNATURE POINTERS. . . 
...ERROR UILL BE CALLED LATER. 
{Anticipate NXM 

i Access cache control register 
! Access Maintenance Register 



5\\ 

! » ERROR 12. SYSTEM REGISTER ERROR 
'.// 

: Cache control register is a system 



BEQ 



10$ 



jgiS-- _ - . 

register located in the OCJll chip 
it should^bc cleared on initializ 



000060 177750 101: 



ERR0R*13 
BITB #tB00110000,a#177750 
BNE 11$ 



zation 



SI » ERROR 13. OCJll CACHE CNTRL REG NOT CLEARED 
;;// 

Cache control register isn't clear. 
Is this a K2 module? (system reg 
access BS<1:0> « 0,1) 

Check ID code in maint. register 



:;\\ 



F3 
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003552 


104014 


1007 


003554 


000421 


1008 


003556 


200 


1009 


003571 


200 


1010 






1011 







103 
123 



120 
131 



1012 
1013 
1014 
1015 



003620 



:: >> ERROR 14. MAINT REG ID .'tOT CORRECT 
ERR0R*14 ;;// 
11>: BR K2CSRS 
CPIER: .ASCIZ <CRLF>/CPU ERROR/ 
SYSER: .ASCIZ <CRLF>/SYSTEM REGISTER ERROR/ 
.EVEN 

;*TEST 2.2 CONTROL/STATUS REGISTERS 

T2.2:: 

Test the K2 control and status registers 



177532 



QIR-177532 



1 A1 
lUlD 
















101 7 






00471 S 




MOV 
nuv 




1016 


003626 


012737 


004662 


044746 




MOV 


#CS'^.EMAOR : 




003634 


012737 


045206 


044752 




MOV 


4N0bI'3.ESADR : 




003642 


000240 








NOP 




1019 


003644 


012737 


mm 


002426 




MOV 


*-l.TRAP4X 


1020 


003652 


112737 


000101 


004676 




MOVB 


*'A.a«:SRER*<12.> 


1021 


003660 


012704 


177520 






HOV 


«K2CSRA.R4 


1022 


003664 


011403 








MOV 


(R4).R3 


1023 


003666 


102414 








BVS 


5* 


1024 


003670 


052703 


177400 






BIS 


#177400.R3 


1025 
















1026 


003674 


010314 








MOV 


R3.(R4) 


1027 


003676 


102410 








BVS 


5i 


1028 


003700 


042703 


177400 






BIC 


#177400. R3 


1029 


003704 


020314 








CMP 


R3,(R4) 


1030 


003706 


001004 








BNE 


5» 


1031 


003710 


110324 








MOVB 


R3.(R4)* 


1032 


003712 


102402 








BVS 


5« 


1033 


003714 


105014 








CLRB 


CR4) 


1034 


003716 


102001 








BVC 


11 


1035 


003720 








5$: 









003720 


104015 








ERR0R*15 1 


1036 


003722 








11: 






1037 


003722 


112737 


000102 


004676 




MOVB 


«'B,9«CSRER«<12.> 


1038 


003730 


012704 


177522 






MOV 


4K2CSRB.R4 


1039 


003734 


011403 








MOV 


(R4).R3 


1040 


003736 


102406 








BVS 


6» 


1041 


003740 


010314 








MOV 


R3,CR4) 


1042 


003742 


102404 








BVS 


6» 


1043 


003744 


105724 








TSTB 


CR4)* 


1044 


003746 


102402 








BVS 


6« 


1045 


003750 


105724 








TSTB 


CR4)* 


1046 


003752 


102001 








BVC 


2» 


1047 


003754 








6$: 








003754 


104016 








ERROR* 16 I 


1048 


003756 


112737 


000103 


004676 


2$: 


MOVB 


#'C.a«:SRER*<12.> 


1049 


003764 


012704 


177524 






MOV 


«K2CSRC.R4 


1050 


003770 


011403 








MOV 


CR4).R3 



: ERROR MESSAGE PREFIX 
SET ERROR MESSAGE... 
...AND SIGNATURE POINTERS... 
...ERROR WILL BE CALLED LATER. 
[ANTICIPATE NXM 
; ASCII FOR ERROR MESSAGE 
! START OF K2CSRS 
:READ K2CSRA 
(NXM IF V BIT SET 
jTRY TO WRITE UPPER BYTE 

SHOULDN'T BE ABLE TO. 
: WRITE K2CSRA 

CLEAR UPPER BYTE 
UPPER BYTE IN R4 SHOULD BE ZERO 

;TEST LOW BYTE OF K2CSRA 

' WRITE UPPER BYTE 

|V BIT INDICATES THAT TIMEOUT OCCURRED 
• 'W 

" » ERROR 15. ERROR IN K2CSRA 



ASCII FOR ERROR MESSAGE 

POINT TO K2CSRB 

READ K2CSfiB 

NXM IF V BIT IS SET 

WRITE K2CSRB 

TRY BYTE ACCESS TO LOW BYTE 
NXM IF V BIT SET 
TRY BYTE ACCESS TO HIGH BYTE 
SHOULD NOT TIME OUT 



;\\ 

! >> 

s// 



ERROR 16. ERROR IN K2CSRB 



ASCII FOR ERROR MESSAGE 
POINT TO K2CSRC 
TEST K2CSRC 



G3 



KXJll-CA FUNCTIONAL TEST MACRO Y05.02 

T2.2 CONTROL /STATUS REGISTERS 



Thursday 03 Apr 86 14:11 Page 31 



1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 



005772 
003"' M 
003776 
004000 
004002 
004004 
004006 
004010 
004012 
004014 



102410 
010314 
102406 
105714 
102404 
110324 
102402 
105714 
102001 



7$: 



BVS 
MOV 

ovs 

TSTB 

BVS 

MOVE 

BVS 

TSTB 

BVC 



7* 

R3.CR4) 
7i 

CR4) 
?♦ 

R3.(R4)* 
7» 

(R4) 
3$ 





004014 


104017 






ERROR* 17 : 


1061 














1062 


004016 


112737 


000104 004676 


3$: 


MOVB 


*'0.a*CSRER»<12.> 


1063 


004024 


012704 


177530 




MOV 


«K2CSRD.R4 


1064 


004030 


011403 






MOV 


(R4),R3 


1065 


004032 


102406 






BVS 


10$ 


1066 


004034 


010314 






MOV 


R3.(R4) 


1067 


004036 


102404 






BVS 


10$ 


1068 


004040 


105724 






TSTB 


(R4)* 


1069 


004042 


102402 






BVS 


10$ 


1070 


004044 


105724 






TSTB 


(R4> 


1071 


004046 


102001 






BVC 


4$ 


1072 


004050 






10$: 









004050 


104020 






ERR0R*20 ; 


1073 














1074 


004052 


112737 


000112 


004676 4$: 


MOVB 


*'J,a*CSRER*<12.> 
#K2CSRJ,R4 


1075 


004060 


012704 


177540 




MOV 


1076 


004064 


011403 






MOV 


CR4).R3 


1077 


004066 


102406 






BVS 


11$ 


1078 


004070 


010314 






MOV 


R3.CR4) 


1079 


004072 


102404 






BVS 


11$ 


1080 


004074 


110324 






MOVB 


R3.CR4)* 


1081 


004076 


102402 






BVS 


11$ 


1082 


004100 


105014 






aRB 


CR4) 


1083 


004102 


102001 






BVC 


8$ 


1084 


004104 






11$: 







NXM IF V BIT SET 
URITE K2CSRC 

READ LOU BYTE 

URITE LOU BYTE 

READ HIGH BYTE 
SHOULD NOT TIME OUT 



: » ERROR 17. ERROR IN K2CSRC 
',// 



ASCII FOR ERROR MESSAGE 

POINT TO K2CSRD 

READ K2CSRD 

NXM IF V BIT IS SET 

URITE K2CSRD 

LOU BYTE READ 

HIGH BYTE READ 

NXM IF V BIT IS SET 



sW 

: » ERROR 20, ERROR IN K2CSRD 



ASCII FOR ERROR MESSAGE 
POINT TO NEXT CSR 
READ K2CSRJ 

V BIT SET BY NXM 
URITE K2CSRJ 

V BIT SET BY NXM 
URITE LOU BYTE 

URITE HIGH BYTE 

V BIT SET BY NXM 



004104 

1085 

1086 004106 

1087 004114 

1088 004120 

1089 004122 

1090 004124 

1091 004126 

1092 004130 



104021 

112737 000106 004676 

012704 177534 

011403 

102402 

010314 

102001 



ERR0R«21 



5;\\ 

>> ERROR 



21. ERROR .IN K2CSRJ 



8$: 



12$: 



004130 104022 

1093 

1094 004132 112737 000110 004676 9$: 

1095 004140 012704 177536 



MOVB #'F.a#CSRER*<12. 

MOV 4K2CSRF.R4 

MOV (R4),R3 

BVS 12$ 

MOV R3,(R4) 

BVC 9$ 



ERR0R*22 

MOVB ^^'H.MCSRER*<1^. 
MOV 4K2CSRH.R4 



{ASCII FOR ERROR MESSAGE 
(POINT TO NEXT CSR 
READ K2CSRF 

V BIT SET BY NXM 
URITE K2CSRF 

V BIT SET BY NXM 



i » ERROR 22. ERROR IN K2CSRF 
;// 

{ASCII FOR ERROR MESSAGE 
sPOINT TO K2CSRH 



H 



1 
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1096 004144 

1097 004146 

1098 004150 

1099 004152 

1100 004154 



1101 
1102 
1103 
1104 
1105 
1106 



1107 
1108 
1109 



004154 
004156 
004162 
004164 
004166 
004170 
004172 
004172 
004200 
004206 
004210 



011403 
102402 
010314 
102001 



104023 

012704 177532 

005714 

102402 

005014 

102007 

012737 004700 
012737 045206 
104024 

005037 002426 



044746 
044752 



13*: 
15»: 

14$: 
16$: 



MOV 
BVS 
MOV 
BVC 



(R4).R3 
13* 

R3,(R4) 
15$ 



ERR0R*23 
MOV 0K2QIR.R4 
TST (R4) 
BVS 14$ 
CLR (R4) 
BVC 16$ 

MOV (KtlRER.EMAOR 
MOV 4N0SIG.ESA0R 
ERRQR«24 
CLR TRAP4X 



J >> 

!// 



READ K2CSRH 

NXM SETS THE V BIT 

WRITE K2CSRH 

NXM SETS THE V BIT 



ERROR 23. ERROR IN K2CSRH 



\\ 
>> 
// 



POINT TO QBUS INTERRUPT REGISTER 
READ K2CSRH: SHOULD NOT TIME OUT 

URITE K2QIR 

NXM SETS THE V BIT 



ERROR 24. ERROR IN K2QIR 



004214 








1110 004214 


012737 


004662 


044746 


004222 


012737 


045210 


044752 


004230 


000240 






1111 004232 


012737 


004731 


044742 


1112 004240 


112737 


000101 


004676 


1113 004246 


012704 


177520 




1114 004252 


011403 






1115 004254 

1116 004260 


106427 


000340 




012702 


000252 




1117 004264 


010214 






1116 004266 


020214 






1119 004270 


001005 






1120 004272 


000241 






1121 004274 


006002 






1122 004276 


010214 






1123 004300 


020214 






1124 004302 


001407 






1125 004304 


010437 


001120 




1126 004310 


011437 


001126 




1127 004314 


010237 


001124 




1128 









:*TEST 2.3 GSR DATA TEST 

T2.3: 



5$! 



MOV KSRER.EMAOR 

MOV #EF2.ESA0R 
NOP 

MOV «CSRDAT.EMPRE 

MOVB «'A.a«CSRER*<12. 

MOV «K2CSRA.R4 

MOV (R4),R3 

MIPS «PR7 

MOV *2S2.R2 

MOV R2.(R4) 

CMP R2.(R4) 

BNE 51 

CLC 

ROR R2 

MOV R2.(R4) 

CMP R2.(R4) 

BEQ 1$ 

MOV R4.$GDA0R 

MOV (R4),$60DAT 

MOV R2.»GDDAT 



SET ERROR MESSAGE... 

...AND SIGNATURE POINTERS... 

...ERROR UILL BE CALLED LATER. 
; ERROR MESSAGE PREFIX 
: ASCII FOR ERROR MESSAGE 



sNO INTERRUPTS 

;SET AND CLEAR ALTERNATE BITS 



R2 '125 

SET AND CLEAR ALTERNATE BITS 



1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 



004320 
004322 

004324 
004332 
004336 
004340 
004342 
004346 
004352 
004356 
004360 



104025 



» ERROR 25. DATA ERROR IN K2CSRA 



010314 


1$: 


MOV 


R3.(R4) 


; RESTORE CSR 


112737 


000103 004676 


MOVB 


♦•C.a#CSRER»<12.> 


: ASCII FOR ERROR MESSAGE 


012704 


177524 


MOV 


«K2CSRC.R4 




011403 




MOV 


(R4),R3 




010302 




MOV 


R3,R2 


IgET R3 CONTENTS 


042702 


000017 


SIC 


#17. R2 


;TAKE OUT LED BITS 


012714 


000372 


MOV 


#372. CR4) 


;TEST BITS 


052702 


000012 


BIS 


#12. R2 




020214 




CMP 


R2.CR4) 


ilS R4 OK? 


001010 




BNE 


7$ 





KXJll-CA FUNCTIONAL TEST 
T2.3 CSR DATA TEST 
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1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 



004362 
004366 
004372 
004376 
004400 
004402 
004406 
004412 



042702 
012714 
052702 
020214 
001407 
010437 
011437 
010237 



000017 
000365 
000005 



001120 
001126 
001124 



7$: 



BIC 

nov 

BIS 
CMP 
BEQ 

nov 
nov 
nov 



*17.R2 

*365,(R4) 

#5.R2 

R2.(R4) 

3$ 

R4,$GDA0R 

(R43.$B00AT 

R2.$G00AT 



TAKE OUT LED BITS 



IS R4 OK? 



004416 


104026 






ERR0R*26 ! 


1149 004420 


010314 




3$: 


nuv 




1150 004422 


4 4 ^^^9^ 

112737 


000112 004676 




novB 


«'J.S«CSRER«<12.> 


1151 004430 


/\4 ^^Ad 

012704 


177540 




nov 


4K2CSRJ.R4 


1152 004434 


011403 






MOV 


(R4).R3 


1153 004436 


012702 


000252 




nov 


*252.R2 










MOV 


R2.(R4) 


1155 004444 


012701 


000212 




MOV 


*212.R1 


1156 004450 


020114 






CMP 


R1.(R4) 


1157 004452 


001007 






BNE 


11$ 


1158 004454 


000241 






ac 




1159 004456 


006002 






ROR 


R2 


1160 004460 


010214 






nov 


R2.(R4) 


1161 004462 


012701 


000105 




nov 


#105, Rl : 


1162 004466 


020114 






CMP 


R1,(R4) 


1163 004470 


001407 






BEQ 


8$ 


1164 004472 


010437 


001120 


11$: 


nov 


R4,$G0A0R 


1165 004476 


011437 


001126 




nov 


(R4}.$60DAT 


1166 004502 


010137 


001124 




nov 


RI.IGOOAT 


1167 












004506 


104027 






ERR0R«27 1 



; >> 



ERROR 26. K2CSRC DATA ERROR 



ASCII FOR ERROR MESSAGE 



SET AND CLEAR ALTERNATE BITS 



;R2 =125 

:SET AND CLEAR ALTERNATE BITS 



1168 

1169 004510 

1170 004512 

1171 004520 

1172 004524 

1173 004526 

1174 004532 

1175 004536 

1176 004540 

1177 004542 
1176 004546 
1179 004552 
1160 004554 

1181 004556 

1182 004562 
1163 004566 
1164 

004572 
1185 004574 
1166 004576 
1187 004604 
1166 004610 

1189 004612 

1190 004616 



; » 



010314 
112737 
012704 
011403 
012714 
012701 
020114 
001006 
012714 
012701 
020114 
001407 
010437 
011437 
010137 



104030 
010314 
112737 
012704 
011403 
012702 
010214 



000106 004676 
177534 

125200 
125200 



052400 
052400 



8$: 



001120 
001126 
001124 



000110 004676 
177536 

052525 



12$ i 



9$: 



MOV R3.(R4) 

MOVB «'F.a«CSRER«<12. 

MOV 4K2CSRF.R4 

nov rR4).R3 

nov #i^r20o.(R4) 

nov «1?5200.R1 

CMP ftl.(R4) 

BNE 12$ 

nov #52400. (R4) 

nov «52400.R1 

CnP R1.(R4) 

BEQ 9$ 

nov R4.$GDADR 

nov (R4).$B0DAT 

nov R1.$G0DAT 



ERR0R«3O 



ERROR 27. K2CSRJ DATA ERROR 



ASCII FOR ERROR MESSAGE 
POINT TO NEXT CSR 

ALT PATTERN 



iNEXT ALT PATTERN 



nov 


R3.(R4) 


novB 


#'H.a#CSRER*<12.> 


nov 


«K2CSRH.R4 


nov 


(R4),R3 


nov 


»52S25.R2 


nov 


R2.(R4) 



{ » 
;// 



ERROR 30, K2CSRF DATA ERROR 
{RESTORE CSR 

i ASCII FOR ERROR HESSAGE 



sURITE ALT PATTERN 



u5 

KXJll-CA FUNCTIONAL TEST 
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1191 


004620 






1192 


004622 


001005 




1193 


004624 


000241 




1194 


004626 


006102 




1195 


004630 


m M^ A. 




11% 


004632 


021402 




1197 


004634 


001407 




1198 


004636 


010437 


001120 


1199 004642 


011437 


001126 


1200 004646 


010237 


001124 


1201 









004652 

1202 004654 

1203 004656 

1204 004662 

1205 004700 

1206 004715 

1207 004731 
1208 

1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 



104031 
010314 
000137 
105 
105 
101 
104 



175000 
175002 
175004 
175006 
175010 
175012 
175014 
175016 
175020 
175022 
175024 
175026 
175030 
175032 
175034 
175036 



004740 
122 
122 
104 
101 



122 
122 
104 
124 



13J: 



101: 



CMP 
BNE 
CLC 
RQL 
MOV 
CtP 
BEQ 
MOV 
MOV 
MOV 



(R4).R2 
13* 

R2 

R2.(R4) 
(R4).R2 
10* 

R4.*G0ADR 

(R4).*BD0AT 

R2.*GDDAT 



ERROR «31 



SHIFT PATTERN 
WRITE PATTERN 



\\ 

>> ERROR 31. K2CSRH DATA ERROR 
// 



MOV 
JMP 
.ASCIZ 
.ASCIZ 
■ASCIZ 
.ASCIZ 



R3.(R4) 

LOCTPR 

/ERROR IN CSRX/ 
/ERROR IN QIR/ 
/ADDRESSING / 
/DATA / 



.•RESTORE CSR 



CSRER: 
QIRER: 
CSRAOR: 
CSRDAT: 
.EVEN 

;Now test the TPRs from the K2 side 



TPROO 
TPROl 
TPR02 
TPR03 
TPR04 
TPR05 
TPR06 
TPRC7 
TPR08 
TPR09 
TPRIO 
TPRll 
TPR12 
TPR13 
TPR14 
TPR15 



•175000 
-175002 
-175004 
-175006 
-175010 
-175012 
-175014 
-175016 
-175020 
-175022 
•175024 
-175026 
-175030 
-175032 
-175034 
•175036 



004740 








T2.4:: 






1229 004740 


005037 


044742 




LOCTPR: 


aR 


EMPRE 


1230 004744 


042737 


000100 


177530 




BIC 


WIT06.9«K2CSRD 


1231 004752 


013746 


175000 






MOV 


8»TPR00.-(SP) 


1232 004756 


013746 


175002 






MOV 


8#TPR01.-CSP) 


1233 004762 


012704 


175000 






MOV 


#TPR00.R4 


1234 004766 


012737 


177777 


002426 




MOV 


#-l.TRAP4X 


1235 004774 


011403 






1*: 


MOV 


(R4).R3 


1236 004776 


102410 








BVS 


2* 


1237 005000 


010314 








MOV 


R3.(R4) 


1238 005002 


102406 








BVS 


2* 


1239 005004 


062704 


000002 






ADD 


«2,R4 


1240 005010 


022704 


175040 






CMP 


#TPR15*2,R4 


1241 005014 


001367 








BNE 


11 


1242 005016 


000411 








BR 


3$ 



*TEST 2.4 LOCAL SIDE TPR ACCESS TEST 

CLEAR ERROR ^ESSAGE PREFIX 
DISABLE QBUS TPR ACCESS 
SAVE CONTENTS OF TPROO. . 
... AND TPROl 
POINT TO TPROO 
ANTICIPATE NXM 
READ THE TPRS 

V BIT BY NXM 
WRITE THE TPRS 

V BIT SET BY NXM 
POINT R4 TO NEXT TPR 
DID UE READ/URITE ALL TPRS? 



K3 
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1243 005020 

1244 005024 
005032 
005040 

1245 

1246 005042 
1247 



005046 

1248 005046 

1249 005052 

1250 005056 

1251 005062 

1252 005064 

1253 005066 

1254 005072 

1255 005074 

1256 005100 

1257 005102 

1258 005104 

1259 005106 

1260 005110 

1261 005114 

1262 005116 

1263 005122 

1264 005124 

1265 005130 

1266 005134 

1267 005140 

1268 005142 

1269 005146 

1270 005150 

1271 005154 

1272 005160 

1273 005164 
005172 
005200 

1274 

1275 005202 

1276 005206 

1277 005212 
1278 

1279 



005220 

1280 005220 

1281 005224 

1282 005230 

1283 005236 

1284 005240 

1285 005242 
005250 
005256 

1286 005260 

1287 005262 



010437 

012737 
012737 
104032 



001120 
005532 
045230 



005037 002426 



012703 
012702 
012704 
010324 
010224 
022704 
001373 
012704 
020324 
001022 
020224 
001015 
022704 
001371 
022702 
001427 
012704 
012702 
012703 
000750 
010237 
000402 
010337 
014437 
010437 
012737 
012737 
104033 

012637 
012637 
052737 



012702 
012701 
012737 
005722 
102007 
012737 
012737 
104034 
077112 
012702 



125252 
052525 
175000 



175040 
175000 

175040 

125252 

175000 
125252 
052525 

001124 

001124 
001126 
001122 
005554 
045210 



175002 
175000 
000100 



177560 
000004 
177777 



005573 
045206 



177560 



044746 
044752 



2»: 



nOV R4,a»$G0A0R 
HOV *TPRER.EMADR 
MOV «LA16.ESA0R 
ERR0R*32 



; >> ERROR 32. 
;// 



TPR TIMED OUT ON LOCAL ACCESS 



3$: CLR TRAP4X jLOOK FOR UNEXPFCTED NXHS 

♦TEST 2.5 LOCAL SIDE TPR DATA TEST 

T2.5: 



DATPR: 



1»: 



2$: 



044746 
044752 



177530 



3$: 

5$: 
6$: 



4$: 



MOV *125252.R3 

MOV *52525.R2 

MOV *TPR00.R4 

MOV R3,CR4)* 

MOV R2.(R4)* 

CMP #175040. R4 

BNE 1$ 

MOV «TPR00.R4 

CMP R3.(R4)* 

BNE 5$ 

CMP R2.(R4)* 

BNE 3$ 

CMP #TPR15*2.R4 

BNE 2i 

CMP #125252. R2 

BEQ 4$ 

MOV *TPR00,R4 

MOV *125252.R2 

MOV *52525.R3 

BR II 

MOV R2.3«$GDDAT 

BR 61 

MOV R3.a«$G0DAT 

MOV -CR4).a>$BDDAT 

MOV R4.a«$60ADR 

MOV #TPRDER.EMAOR 

MOV «EF2.ESA0R 
ERR0R«33 

MOV (SP)*,a*TPR01 

MOV (SP>,a#TPROO 

BIS «eiT06.S«K2CSRD 



INIT R3 UITH DATA 
INIT R2 UITH DATA 
POINT TO FIRST TPR 
WRITE CHECKER BOARD 



TO TPR ARRAY 



;DIO UE RUN OUT OF TPRS YET? 

POINT TO TPROO 

CHECK DATA 

BRANCH IF BAD 

CHECK DATA 

BRANCH IF BAD 

DID UE CHECK ALL THE TPRS? 

sDID UE TRY BOTH PATTERNS? 

RESET POINTER 
CHANGE PATTERN 



: ERROR CALL DATA 



:GET BAD DATA 

: . . AND FAILING TPR ADDRESS 



: >> ERROR 33. 
:// 



BAD DATA IN TPRS 



RESTORE TPRS 

RE-ENABLE TPR ACCESS FROM Q6US 



;*TEST 2.6 SLU ADDRESS ACCESS TEST 

12.6: 



002426 



044746 
044752 



MOV #177560, R2 

MOV «4.R1 

MOV #-l.a«TRAP4X 

TST CR2> 

BVC 21 

MOV #SLU1T0,EMA0R 

MOV «N0SIG.ESADR 
ERROR ♦34 

21: SOB Rl.U 

MOV #177560, R2 



FIRST SLU ADORES? 
ANTICIPATE NXM 



'i^)> ERROR 34. SLUl REGISTER TIMED OUT ON READ 



L3 



KXJll 
T2.6 



CA FUNCTIONAL TEST 



SLU ADDRESS ACCESS TEST 
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1288 
1289 
1290 
1291 



1292 
1293 
1294 



005266 
005272 
005274 
005276 
005304 
005312 
005314 



1295 
1296 
1297 
1298 
1299 
1300 



1301 
i302 
1303 
1304 



005316 
005316 
005322 
005330 
005332 
005334 
005340 
005346 
005354 
005356 
005362 



005364 

1305 005364 

1306 005370 

1307 005372 

1308 005374 

1309 005376 

1310 005400 

1311 005404 

1312 005406 

1313 005410 

1314 005412 

1315 005414 

1316 005420 

1317 005424 

1318 005426 

1319 005432 

1320 005434 

1321 005436 

1322 005440 

1323 005442 

1324 005446 

1325 005450 

1326 005452 

1327 005454 
1326 005456 

1329 005460 

1330 005462 

1331 005464 

1332 005466 

1333 005472 

1334 005474 



012701 
105722 
102007 
012737 
012737 
104035 
077112 



012702 
012737 
005722 
102011 
010237 
012737 
012737 
104036 
022702 
001362 



012702 
005022 
102445 
005022 
102443 
062702 
005022 
102437 
005012 
102435 
012702 
012703 
005013 
012701 
005712 
102424 
010113 
005201 
022701 
001371 
005722 
005722 
102414 
005722 
102412 
005722 
102410 
022702 
001416 
012703 



000010 



005573 044746 
045206 044752 



3$: 



4(: 



MOV *10.R1 

TSTB (R2)* 

BVC 4t 

MOV *SLU1T0.EMADR 

MOV «N0SI6.ESA0R 
ERR0R*35 

SOB R1.3$ 



>> ERROR 35. SLUl REGISTER TIMED GUT ON BYTE READ 



174400 

177777 002426 



001120 

005631 044746 
045222 044752 



s*TEST 2.7 DTC ADDRESS ACCESS TEST 

T2.7: 



174540 



MOV *1 74400. R2 

MOV «-l,a»TRAP4X 

1*: TST CR2)* 

BVC 2< 

MOV R2.IG0A0R 

MOV WTCTO.EMAOR 

MOV 4LA16M2.ESA0R 
ERR0R«36 

2*: CMP #174540. R2 

BNE 1$ 



! FIRST DMA ADDRESS 
; ANTICIPATE NXM 



: >> ERROR 36. DTC REGISTER TIMED OUT ON READ 



175704 



000004 



175700 
175704 

000001 



000003 



;*************************************************************** 

♦TEST 2.10 SLU2 ADDRESS ACCESS TEST 

:****■»:*****•************************•***•**************♦******** 

T2.10:: 

MOV #175704. R2 

: WRITE ONLY 175704 

! " 175706 

sBUMP UP TO 175714 
{URITE ONLY 175714 

! " 175716 



51: 
1<: 



175720 
175714 



MOV 


#175704. R2 


CLR 


(R2)» 


BVS 


10* 


CLR 


(R2)* 


BVS 


10$ 


ADO 


«4.R2 


CLR 


(R2)» 


BVS 


m 


CLR 


(R2) 


BVS 


10* 


MOV 


#175700. R2 


MOV 


#175704, R3 


aR 


CR3) 


MOV 


#1.R1 


TST 


(R2) 


BVS 


10* 


MOV 


R1.CR3) 


INC 


Rl 


CMP 


#3.R1 


BNE 


1* 


TST 


(R2> 


TST 


(R2)* 


BVS 


10* 


TST 


(R2)» 


BVS 


10* 


TST 


(R2)* 


BVS 


10* 


CMP 


#175720. R2 


BEQ 


15* 


MOV 


#175714. R3 



Register Pointer ■ 0 
Read the status registers 
Next status register 

Increment R2 by 2 

Read the Receiver Data Buffer 

Try to read control registers! should time-out 

Try to read xmit buffer; should time-out 



M3 
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1335 005500 


012702 


175710 






MOV 


#175710. R2 




1336 005504 


000747 








BR 


5$ 




1337 005506 


010237 


001120 




10$: 


MOV 


R2,$G0ADR 




1338 005512 


012737 


005612 


044746 




MOV 


#SLU2T0.EMADR i 


;\\ 


005520 


012737 


045222 


044752 




MOV 


«LA16M2.ESA0R : 


; > 


005526 


104037 








ERROR ^37 i 


;// 


1339 005530 








4 C * 

15$ : 








003350 










BR 


TST3 

/TPR ADDRESS ERROR/ 


1340 005532 


124 


120 


122 


TPRER: 


.ASCIZ 


1341 005554 


124 


120 


122 


TPRDER: 


.ASCIZ 


/TPR DATA ERROR/ 




1342 005573 


123 


114 


125 


SLUITO: 


.ASCIZ 


/SLUl TIMED-OUT/ 




1343 005612 


123 


114 


125 


SLU2T0: 


.ASCIZ 


/SLU2 TIMED -OUT/ 




1344 005631 


104 


124 


103 


DTCTO: 


.ASCIZ 


/DTC TIMED -OUT/ 




1345 








.EVEN 









ERROR 37, SLU2 REGISTER TIMED OUT 
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1347 

1346 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 

135a 

1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1366 
1369 
1370 
1371 



MODULE NAME: RAMBO - K2 512KB RAM TEST 

AUTHOR: HENRY E^t1AN CREATION DATE 28 JUNE -85 

FUNCTIONAL DESCRIPTION: 

THIS TEST PROVIDES A FUNCTIONAL TEST OF 512K BYTES OF DYNAMIC 
RAM ON THE KXJll-CA MODW-E. ANY ERROR IS CONSIDERED FATAL AND 
HILL CAUSE AN EXIT FROM THE TEST. THE PROGRAM EXECUTES IN 
I KERNEL MODE WITH MEMORY MANAGEMENT. AND 22 BIT ADDRESSING 

; ENABLED. PRIOR TO TESTING THE RAM THE CONTENTS OF THE STACK 

t ARE SAVED IN THE USER D SPACE PARS. A 16 WORD DEEP 

t STACK IS SET UP USING THE SUPERVISOR I Af© D SPACE PARS. THIS 

t PREVENTS CORRUPTING THE RAM BEING TESTED OR WIPING OUT THE STACK 

t CONTENTS. 

ERRORS: ANY ERROR IS CONSIDERED FATAL AND WILL CAUSE THE TEST 
TO BE EXITED AND AN ERROR TO BE POSTED. 

INPUTS: 



!rEGISTERS CHANGED: 
i RO - R5 



B4 
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1373 005650 

1374 005652 



005652 
005654 
005660 
005666 
005672 
005674 
005700 
005704 
005706 



1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
140' 

i ^^>: 

1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 



005722 



005722 
005726 
005734 
005740 
005746 
005754 
00576C 

005766 
005772 



005776 
006002 
006006 
006014 



017600 



000004 
012706 
012737 
005037 
000402 
000137 
104415 
000406 
040 



005037 
012737 
005037 
012737 
012737 
004737 
012737 

010637 
012706 



012704 

0-05037 
012737 
052737 



001100 
177777 
044742 

011312 
005706 

040 



002426 



122 



177572 
010540 
002426 
000340 
011174 

001462 
177777 

177676 
172300 



172352 
177540 
000020 
000001 



000004 

177776 
000114 

177672 



172516 
177572 



TOPHEH: .WORD 17600 
K2RAn: 

;*TEST 3 RAM TEST 

; J*************************************************************** 



TST3: 



30010$: 
30011$: 



30012$: 



SCOPE 
MOV 
MOV 
CLR 
BR 
JMP 

T$NAME. 
BR 

.ASCIZ 
.EVEN 



#STACK,SP 

#-l,TRAP4X 

EMPRE 

30011$ 

TST4 

.♦4 

30012$ 

\ RAM TEST\ 



SET A aE«N STACK. 
DISMISS BUS-ERRORS. 
aEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
...AND SKIP OVER THE ASCII. 



This is a test of the on board RAM on the K2 module. There are 256k 
words of RAM on the board. It consists of eighteen 256 k x 1 dynamic RAMs. 
Sixteen RAMs are for data storage and two are for storage of a 
parity bit for each byte. The data RAMs are in leadless chip carriers 
which are mounted on ceramic substrates which form a Single In line 
Package (SIP). There are four data RAMs per SIP. and four SIPs per 
module. The parity RAMs are in standard DIP packages. 

Access to the RAM is via a dynamic RAM control circuit which resides 
in the Data Path and LSI Bus Interface gate array. The dynamic RAM 
controller circuitry generates the signals 

needed to interface to the RAM. Refre^ for the RAMs is derived from 
the 14 mhz. clock which also drives the DCJll micro -processor. Tne clock 
frequency is divided down to provide a signal which generates a refresh 
request every XXX micro-seconds. The refresh request originates in GA_1 
and is sent to the DMA State Machine - a 82S167 PAL, which produces a 
refresh DMA request, from here on called REFDMR. This signal requests 
a DMA cycle from the DCJll. Uhen the DMA cycle is granted the memory 
refresh is executed 



aR 34MMR0 

MOV #TRP.4,8#4 

aR 8#TRAP4X 

MOV #340,»#177776 

MOV «PARERR. 8*114 

JSR PC.rflU 

MOV «-1.8«UDPAR5 

MOV SP,8iU)PAR7 

MOV M72300.SP 



MOV «KIPAR5.R4 

aR 8#K2CSRJ 

MOV «20,8»172516 

BIS «l.a«MMRO 



Turn off MMU 
Bus timeout error rout ne 
Not expecting any traps via 4 
Clear the PSQ. set kernel mode. 
Set up parity error handler 
Go initialize the MMU registers 
Use U0PAR5 as indicator as to weather 
parity error is anticipated 
Save the value of ap in UDPAR7 
;Set up a stack using the Supervisor 
s I spacs and D space PARs so that the 

RAM under test will not be cor-upted 
R4 points to KIPAR5 
Disable parity error generation 
Enable 22 bit addresses, disable 0 space 
TURN ON MHU 



Unexpected parity errors, non-ex i stent memorytraps will vector 
thru the Kernel I space PAR to the firmware ROM. 

ItHc parity error handler in ROM will set the V bit in the PSU 



C4 



KXJU-CA FUNCjIONAL TEST 
T3 RAM TEST 

1416 
1417 
1418 
1419 
1420 
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on 



h occurence of a pmrity error and then do an RTI. 



The non -existent Memory error handler will cause the K2 to post 

an error indication, exit the test and return to the finnwere monitor. 



D4 



KXJll CA FUNCTIONAL TEST 
T3 RAM TEST 

1422 
1423 
1424 
1425 

1426 006022 005002 

1427 006024 012703 051506 

1428 006030 005001 

1429 006032 062102 

1430 006034 020301 

1431 006036 002375 

1432 006040 010237 177666 
1433 
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First we'll establish a checksui for the diagnostic stuff resident in 
the RAM 



II: 



aR 

MOV 

aR 

AOO 
CMP 
BGE 
MOV 



R2 

«LASTA0.R3 
Rl 

(R1)^.R2 

R3.R1 

1* 

R2.M177666 



:R2 UILL HOLD SUM IGNGRINS CARRIES 
jSAVE CHECK SUM IN TPR15 



E4 



KXJll-CA FUNCTIONAL TEST 
T3 RAM TEST 

1435 

1436 
1437 
1436 
1439 
1440 
1441 
1442 
1443 
1444 



1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 



006044 
006044 

006050 
006054 
006056 
006062 
006064 
006066 
006072 
006076 
006100 
006104 
006106 
006112 
006114 
006120 
006122 

006124 
006130 
006134 
006140 

006142 
006144 
006150 
006152 
006156 
006160 
006162 



006164 
006170 
006172 

006176 
006202 
006204 
006210 
006212 
006214 
006220 
006224 



004737 

072327 
010200 
16*700 
CoU300 
000404 
012701 
012702 
010022 
062700 
077104 
023714 
001424 
062714 
005700 
001361 

012701 
012702 
162700 
010022 

077104 
023714 
001405 
062714 
005700 
001361 
000741 



004737 
001052 
004737 

072327 
010200 
162700 
060300 
000404 
012701 
012702 
020022 



010450 
000006 
120000 

010000 
120000 

000002 

005650 

000200 



010000 
120000 
000002 



005650 
000200 



010514 
010450 
000006 
120000 



010000 
120000 
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Let's check that the RAM is Morking in a ruoimentary fashion. Meanirvg that 
the address decoders are working, the rams hold data and that refresh cycles 
are occurring. 

In the first 32 kwords of memory each address m!11 be written with its own 
address. The next 32 kword bank will be written with virtual address 0 ■ 177776 
thru to virtual address 177776 - 0. The third 32 kword bank of memory will 
repeat the pattern in the first bank md so on... 

;*TEST 3.1 RAM ADDRESSING TEST 

T3.1: 



15«: 
1*: 



2(: 
3*: 



JSR 

ASH 

MOV 

SUB 

ADO 

BR 

MOV 

MOV 

MOV 

ADD 

SOB 

CMP 

BEQ 

ADD 

TST 

BNE 

MOV 
MOV 
SUB 
MOV 

SOB 
CMP 
BEQ 
ADO 
TST 
BNE 
BR 



10$ 



16$: 
IK: 



JSR 
BNE 
JSR 

ASH 

MOV 

SUB 

ADD 

BR 

MOV 

MOV 

CMP 



PC.PROMLO 

«6.R3 

R2.R0 

«120000,R0 

R3.R0 

1« 

«40%..R1 

#120000, R2 
R0,CR2)* 
«2,R0 
Rl.li 

T0PMEM.CR4) 
101 

*200.(R4) 

RO 

15( 

#4096. .Rl 
«120000.R2 
«2.R0 
R0.CR2)* 

R1,3I 

T0PMEM.CR4) 
101 

*200.(R4) 

RO 

2« 

15* 



;NoM check memory for the right stuff. 



PC.CHEK5UM 
21$ 

PC,PR0N.0 

«6.R3 

R2.R0 

«120000.R0 

R3.R0 

111 

*4096.,R1 

«120000,R2 

R0.(R2)* 



GO SEE IF PROM IS MAPPED LOU 
AND INIT KIPAR5 ACCORDINGLY 



STARTING DATA FOR RO 
INIT COUNTER 

URITE 32 KWORDS OF MEMORY WITH ADDRESS 



DID UE HIT THE TOP? 
BRANCH OUT OF SETUP IF YES 
GO TO NEXT UINOOU 
DID RO URAP AROUND TO ZERO 



'ET? 



; URITE NEXT 12 KUOROS 



! URITE ADDRESS WITH 2S COMPLIMENT 
:...0F ADDRESS 



iDID UE HIT 
:G0 TO NEXT 
;DID IT HIT 



TOP 

UINDOU 
ZERO YET? 



FIND LAST DIAGNOSTIC ADDRESS AND 
INIT KIPARS AND Rl ACCORDINGLY 



STARTING DATA FOR RO 



: CHECK THE DATA 



F4 



KXJll-CA FUNCTIOv^L TEST 
T3.1 RAM AOORESSING TEST 
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1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 



1511 
1512 



1513 
1514 
1515 
1516 
1517 
1518 
1519 



006226 
006230 
006234 
006236 
006242 
006244 
006250 
006252 
006254 
006260 
006264 
006270 
006272 
006274 
006276 
006302 
006304 
006310 
006312 
006314 
006316 
006322 
006330 
006336 
006340 
006344 
006352 
006360 



006362 
006370 
006372 
006376 



001044 

062700 
077105 
023714 
001447 
062714 
005700 
001360 
012701 
012702 
162700 
020022 
001022 
077105 
023714 
001427 
062714 
005700 
001360 
000737 
013706 
012737 
012737 
104040 
013706 
012737 
012737 
104041 



032777 
001002 
000137 



000002 
005650 
000200 



010000 
120000 
000002 



005650 
000200 



177676 
010712 
010704 

177676 
011006 
010634 



002000 
006752 



17*: 
12(: 



044746 
044752 



044746 
044752 



21(: 



20(: 



172550 25»: 
26$: 



BNE 


20$ 


AOO 


«2.R0 


SOB 


Rl.ll$ 




T0PMEM.(R4) 


BEQ 


25$ 


ADD 


«200,(R4) 


TST 


RO 


BNE 


16$ 


MOV 


M096. .Rl 


MOV 


*120000,R2 


SUB 


«2.R0 


CMP 


R0.CR2)* 


BNE 


20$ 


SOB 


Rl,12$ 


OP 


T0PMEM,CP4) 


BEQ 


25$ 


ADO 


»200.CR4) 


TST 


RO 


BNE 


17$ 


BR 


16$ 


MOV 


a«UDPAR7.SP 


MOV 


«CKSUn,EMAOR 


MOV 


«FATALR.ESAOR 


ERR0R*4O 


MOV 


a«UDPAR7,SP 


MOV 


WAME.EMAOR 



MOV «FATALU.ESAOR 
ERR0R«41 



BIT 
BNE 
JMP 



WITlO.aSUR 
26$ 

PARCHK 



! >> 
!// 

; >> 
;// 



DID UE rl' TfC TOP YET? 
IF YES THEN TEST IS DONE 
GO TO NEXT UINOOU 



:IS DATA STILL OK? 



sDID UE HIT THE TOP? 

:G0 TO NEXT UINOOw 
:IS R0=0 

;D0 THE NEXT 32 KUORDS 



ERROR 40. CHECKSUM ERROR 



ERROR 41. 



POSSIBLE CAUSE OF ERROR IS A 
BAD RAM CELL, ADDRESS DECODER 
OR REFRESH NOT OCCURRING 
DO EXTENDED RAM TESTS? 
YES 

NO. BUT DO CHECK THE PARITY STUFF. 



G4 



KXJll-CA FUNCTIONAL TEST 
T3.1 RAH AOORESSING TEST 

1522 
1523 
1524 



006376 

1525 
1526 

1527 006376 
1528 

1529 006402 

1530 006404 

1531 006410 

1532 006414 

1533 006416 

1534 006420 

1535 006422 

1536 006424 

1537 006430 

1538 006432 

1539 006436 

1540 006440 

1541 006444 

1542 006446 

1543 006452 
006460 
006466 

1544 006470 

1545 006474 
006502 
006510 

1546 
1547 
1548 
1549 

1550 006512 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 006512 

1615 006516 
1616 

1617 
1618 
1619 
1620 
1621 
1622 
1623 

1624 006522 

1625 006524 
1626 
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Now we'll check the address decoders, and look for interaction between 
nenory cells in the same RAH. 

• «. • - 

♦TEST 3.2 RAM ADDRESS DECODERS TEST 

T3.2:: 

sinitialize Memory with all zeros. This uses a OATO and DATI bus cycle to RAM. 



004737 010450 



000404 

012701 
012702 
005012 

031023 
C~'104 

p: ^\ 

062/14 
000762 
004737 
001422 
013706 
012737 
012737 
104042 
013706 
012737 
012737 
104043 



010000 
120000 



005650 
000200 
010514 
177676 

010712 044746 
010704 044752 

177676 

011006 044746 
010640 044752 



012700 177777 
004737 010176 



005000 

004737 010314 



JSR 



PC.PROMLO 



10$: 
15«: 



25t: 



201: 



BR 15* 

W)V *40%..R1 

MOV #120000. R2 

CLR (R2) 

TST CR2)* 

BNE 20$ 

SOB R1.15$ 

CMP T0PfEM,(R4) 

BEQ 25« 

ADD «200.(R4) 

BR 10* 

JSR PC.CHEKSUM 

BEQ 261 

MOV 8#UDPAR7.SP 

MOV «CKSUn.EMADR 

MOV «FATALR.ESADR 
ERR0R«42 

MOV 90UDPAR7.SP 

MOV «RAME.EMADR 

MOV #FATAL1.ESA0R 
ERR0R«43 



26$: 



iFIND LAST DIAGNOSTIC ADDRESS AND 
ilNIT KIPAR5 AND Rl ACCORDINGLY 

(jse Rl as a counter 
Set R2 to 120000 

Write zeros at all addresses (DATO) 
Ensure that It is zero (DATI) 

Branch to error if not zero 
Loop control 
Have we hit top yet? 

Branch if yes 
Move window up 4 kwords 
Do it again 



s >> ERROR 42, CHECKSUM ERROR 

!// 

:\\ 

s >> ERROR 43. 
!// 

; Possible cause of this error 
: is a bad RAM cell that can't be cleared. 
:or bad MDAL. Failing location is contents 
;of R2 minus two. 



Check that writing ones at a low address does not affect a 



memory cell at 



Ding 
a hi 



gher address 



Read zeros/ compliment/ write ones at 256 k addresses starting at 
loM RAM working up to address 1777776 

MOV #-l,R0 jLOAD RO UITH EXPECTED DATA 

JSR PC.fUPURD 
Memory should be all ones. KIPAR5 should - 17600. R2 should - 140000 

Check that writina zeros at a high address does not affect a 
memory cell at a lower address 

Read ones/ compliment/ write zeros at 2S6k addresses starting at 
1777776 working down to low RAM. 



CLR 
JSR 



RO 

PC.IONURO 



iLOAO RO UITH EXPECTED DATA 



H4 



006530 012700 177777 
006534 004737 010314 



KXJll CA FUNCTIONAL TEST 

T3.2 Rim MOOflESS DECODERS 



162S 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
163« 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
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006540 005000 

006542 004737 010176 



Check that Mriting ones at a high address does not affect a 
iMMory cell at a loMer address 

Read zeros/ compliment/ write ones starting at address 1777776 
Morking down to low RAH 



MOV 
JSR 



#-l.R0 
PC.^ONURO 



sLOAD RO UITH EXPECTED DATA 



Memory should now be all ones. KIPARS should > 0 or lowest RAM. 
R2 should - 120000 

Check that writing zeros at a low address does not affect a 



memory cell at 



:ing 
a hi 



gher address 



Read ones/ compliment/ write zeros at 256k addresses 
starting at address 0 working up to address 1777776 



CLR 
JSR 



RO 

PC.*UPURD 



sLOAO RO UITH EXPECTED DATA 
{Memory should be all zeros. KIPAR5 should > 17600. R2 should - 140000 



14 



KXJll-CA FUNCTIONAL TEST MACRO Y05.02 
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1650 
1651 
1652 
1653 
1703 



006546 

1704 006546 

006552 
006556 
006562 
006566 
006570 
006574 
006576 
006600 
006604 
006606 
006610 
006614 
006616 
006622 
006624 
006630 
006632 
006634 
006636 
006642 
006650 
006656 
006660 

1705 006660 

006664 
006666 
006670 
006674 
006700 
006702 
006704 
006706 
006710 
006712 
006716 
006720 
006724 
006726 
006732 
006740 
006746 



004737 010450 



NoM chectt out the DATIOCB) functions of the module. 

Read byte zeros/ conplinent/ write byte ones at 512kbyte addresses 

starting at address 1777777 working down to lowest RAH address. 

♦TEST 3.3 RAM CELL INTERACTION TEST 

T3.3: 



013714 
012701 
012702 
105142 
122712 
001020 
077105 
162714 
020314 
001363 
004737 
006301 
012702 
105142 
122712 
001002 
077105 
000411 
013706 
012737 
012737 
104044 



006301 
000404 
012701 
012702 
105012 
105712 
001010 
105222 
077105 
023714 
001414 
062714 
000761 
013706 
012737 
012737 
104045 



005650 
020000 
140000 

177777 



000200 

010450 
140000 
177777 



177676 

011006 044746 
010640 044752 



30013*: 
30014*: 



004737 010450 



15$: 



300151: 



300161: 



JSR 

MOV 
MOV 
MOV 
COMB 
CMPB 
BNE 
SOB 
SUB 
CMP 
BNE 
JSR 
ASL 
MOV 
COMB 
CMPB 
BNE 
SOB 
BR 
MOV 
MOV 
MOV 
ERROR 



020000 
120000 



005650 
000200 



30017$: 
30018*: 



177676 

011006 044746 
010640 044752 



30019*: 



PC.PROMLO 

T0PMEM,iR4) 
*8192,.R1 
*140000.R2 
-(R2) 
*-l.CR2) 
30015* 
Rl. 30014* 
*200.(R4) 
R3,(R4) 
30013* 
PC.PROMLO 
Rl 

#140000. R2 
-(R2) 
*-l.(R2) 
30015* 
R1.15* 
30016* 
a«UDPAR7.SP 
«RAME.EMAOR 
#FATAL1.ESA0R 
44 



JSR 


PC.PROMLO 


ASL 


Rl 


BR 


30018* 


MOV 


#8192.. Rl 


MOV 


#120000. R2 


CLR8 


(R2) 


TSTB 


CR2) 


BNE 


30019* 


INCB 


(R2)* 


SOB 


Rl, 30018* 


CMP 


T0PMEM.CR4) 


BEQ 


30020* 


ADO 


#200. CR4) 


BR 


30017* 


MOV 


a#UDPAR7.SP 


MOV 


#RAnE.EMAOR 


MOV 


#FATAL1,ESA0R 



ERR0R*45 



FIND LAST DIAGNOSTIC ADDRESS AfO 
INIT KIPAR5 AND Rl ACCORDINGLY 
Start at top of memory 
Use Rl as 30013* counter 
Set R2 =140000 

Read byte/ modify / write byte 
Should be ones 
Branch if not 

:Loop control 
;Move window down 4 kwords 
;Have we hit low ram? 



;MAKE IT BYTES 



\\ 

>> 
// 



1706 



006750 



30020*: 

:l1eM>ry s^K>uld be 



ERROR 44. 



FIND LAST DIAGNOSTIC ADDRESS AND 
INIT KIPAR5 AND Rl ACCORDINGLY 
MAKE IT BYTES 

Use Rl as 30017* counter 
Set R2 - 120000 
Urite byte CDATOB) 
Read. (DATI) 
Branch to error if not equal 

;Loop control 
;Have we hit top yet? 

;Move window up 4 kwords 



; » ERROR 45. 

{Possible cause of error is 
sDATOB access of RAM Is faulty. 



all zeros. R2 - 140000. KIPAR5 ■ 17600 



J4 

KXJll-CA FUNCTIONAL TEST MACRO Y05.02 
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1708 
1709 
1710 

1711 006750 

1712 

1713 

1714 

1715 

1716 

1717 

1718 006752 



006752 



000004 



The parity checker/generators maintain odd parity on each byte of 
local RAM. If write wrong parity is enabled then even parity is written 



PAROEL: .WORD 



iSee following comnent to explain this. 



1719 006752 


004737 


010450 




JSR 


PCPROMLO 


1720 












1721 006756 


013700 


006750 




MOV 


PARDEL.RO 


1722 006762 


062714 


000200 




AOO 


*200.CR4) 


1723 006766 


012737 


007032 


177672 


MOV 


«l»,a«U0PAR5 


1724 006774 


012737 


000001 


177540 


MOV 


#1.9«K2CSRJ 


1725 007002 


012702 


120000 




MOV 


»120000,R2 


1726 007006 


005012 






CLR 


(R2) 


1727 007010 


005712 






TST 


(R2) 


1728 007012 


077001 






SOB 


RO.. 


1729 007014 


013700 


006750 




MOV 


PARDEL.RO 


1730 007020 


012712 


000401 




MOV 


♦401. (ft2) 


1731 007024 


005712 






TST 


(R2) 


1732 007026 


077001 






SOB 


RO.. 


1733 007030 


000411 






BR 


2» 


1734 007032 


013706 


177676 




MOV 


a<KJ0PAR7,SP 


1735 007036 


012737 


010733 


044746 


MOV 


«PARE.EMAOR 


007044 


012737 


010704 


044752 


MOV 


4FATALR.ESA0R 


007052 


104046 






ERROR ^46 


1736 













177540 



1737 
1738 

1739 007054 013700 006750 

1740 007060 005037 177672 

1741 007064 052737 000002 

1742 007072 011212 
1743 

1744 

1745 007074 042737 000002 177540 
1746 

1747 007102 005712 
1748 

1749 007104 077001 
1750 

1751 007106 102014 

1752 007110 013700 

1753 007114 052737 

1754 007122 005012 
1755 

1756 007124 042737 

1757 007132 005712 

1758 007134 077001 



:Parity error notification does not take place iiMiediately upon detection of 
:bad memory parity. Uhen expecting a parity error a delay should be inserted 
{between the occurrance of the parity error and prior to checking to see that 
: it has occured. 

PARCHK: 

!*TEST 3.4 PARITY CHECKER/GENERATOR TEST 

i 

13 4 - • 

FIND LAST DIAGNOSTIC ADDRESS AND 
INIT KIPAR5 AND Rl ACCORDINGLY 
..oad RO with delay value 
Make sure address used is not in program 
Anticipate parity errors 
Enable parity error detection 
Init R2 

Even low RAM location/ parity RAMs « 1 
Read low RAM location 
Wait here for interrupt 
Load RO with delay value 
Make low RAM bytes odd/Parity RAM now > 0 
Read low RAM 
Uait here for interrupt 



: >> ERROR 46. 
;// 

Possible cause of error is bad parity 
RAM or parity generator/checker 



21: 



006750 
000002 



000002 



177540 
177540 



NOV 
CLR 
BIS 
NOV 



BIC 

TST 

SOB 

BVC 
MOV 
BIS 
CLR 

BIC 
TST 
SOB 



PARDEL.RO 
aflUDPARS 
«2.9M(2CSRJ 
(R2).CR2) 



*2.8«<2CSRJ 

CR23 

RO.. 

3* 

PARDEL.RO 
«2,a«K2CSRJ 

(R2) 

•2.a«K2CSRJ 

(R2) 

RO.. 



Load RO with delay value 

Enable write wrong parity 
Urite it again with write wrong parity 
enabled. Odd low RAM location/ parity 
RAMs - 1 

Disable write wrong parity so that 

stack doesn't get wrong parity. 
Read low RAM location expecting parity 
error 

Filler to make sure we get a demand 

read from Jll. 
Error if no parity error indication. 
Load RO with delay value 
Enable write wrong parity 
Make low RAM bytes even/Parity RAM 

now * 0 
Disable writing wrong parity 
Read lew RAM 

Filler make sure we get a demand 



I<4 
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1759 
1760 
1761 
1762 
1763 
1764 
1765 



1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 



007136 
007140 

007142 
007146 
007154 
007162 



102412 
005012 

013706 
012737 
012737 
104047 



007164 005012 



007166 
007174 
007176 
007200 
007202 
007204 
007210 
007216 
007224 



1792 
1793 
1794 



007226 
007234 
007236 
007240 
007242 
007244 
007246 
007252 
007260 
007266 



012737 
105012 
105212 
001412 
000775 
013706 
012737 
012737 
104050 



012737 
005202 
105012 
105212 
001412 
000775 
013706 
012737 
012737 
104051 



3*: 



177676 
010733 
010704 



044746 
044752 
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BVS 4$ 

CLR (R2) 

MOV a#UDPAR7.SP 

HOV SPARE. EH«DR 

HOV #FATALR.ESADR 



; read from Jll. 

;Oid a parity error occur? 
;try restoring correct parity 
; prior to calling error 



007204 177672 



177676 
010733 
010704 



044746 
044752 



007246 177672 



177676 
010733 
010704 



044746 
044752 



ERR0R«47 



: >> 



4$: 



CLR 



(R2) 



Test parity generator/checker with all patterns 



ERROR 47. 



Possible cause of error is bad parity 
RAM or parity generator /checker 
Restore correct parity. 



Check low byte parity generator /checker 

MOV «10$,9«UDPAR5 

CLRB (R2) 

5$: INCB CR2) 

BEQ 6$ 

BR 5$ 

10*: MOV a#U0PAR7.SP 

MOV SPARE. EMADft 

MOV SFATALR.ESAOR 



Zero low byte 
Do all patterns 
Loop control 

Zero if no parity errors 



; » ERROR 50. 
ERR0R«50 ;;// 

■Possible cause of error is 

bad parity checker /generator 

; Check high byte parity checker /generator 



6«: 
11«: 



MOV #lll.a«UDPAR5 

INC R2 

CLRB (R2) 

INCB (R2) 

BEQ 81 

BR 7* 

MOV 3«UDPAR7,SP 

MOV SPARE. EMAOR 

MOV «FATALR.ESAOR 



ERROR^Sl 



007270 012737 177777 177672 8«: 



MOV 



«-l.a«UDPAR5 



R2 » 120001 
Zero high byte 
Do all patterns 
Loop control 

Zero if no parity errors 



; » ERROR 51. 
;// 

Possible cause of error is 
bad parity checker/generator 



I 4 
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17% 
1797 
1798 
1799 
1800 

1801 007276 032777 

1802 007304 001004 

1803 007306 013706 

1804 007312 000137 
1805 

1806 007316 



002000 171634 

177676 
011232 



007316 
1807 007316 

007322 
007324 
007330 
007334 
007340 

007342 
007344 
007350 
007352 
007356 
007360 
007364 
007366 
007372 
007400 
007406 
007410 
007414 
007422 
007430 



004737 010450 



000404 
012701 
012702 
112712 
005722 

077104 
023714 
001403 
062714 
000762 
004737 
001422 
013706 
012737 
012737 
104052 
013706 
012737 
012737 
104053 



010000 
120000 
000001 



005650 
000200 
010514 

177676 

010712 044746 
010704 044752 

177676 

010762 044746 
010634 044752 



007432 

1806 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 

1817 007432 012700 

1818 007436 004737 
1819 

1820 
1821 
1822 



120000 
010046 



The parity RAH consists of two 256k x 1 RAH chips. Or>e for the Ion 
bytes and one for the high bytes of 256k words of data RAH. 

Test the low byte parity RAM if extended meiiK>ry tests are wanted. 



BIT 
BNE 
MOV 
JMP 



«BIT10.aSUR 
LOUPAR 
3«UDPAR7,SP 
ENDRAM 



DO EXTEfCEO RAH TESTS? 
YES 

NO. RESTORE STACK 
AND EXIT TEST 



LOUPAR: 

!*TEST 3.5 LOU BYTE PARITY RAM TEST 

fS,5: 



JSR 
BR 

30021$: MOV 
MOV 

300221: MOVB 
TST 



PC.PROMLO 

30022* 

*4096..R1 

«120000.R2 

*1.CR2) 

CR2)* 



; Branch to error 

SOB Rl. 300221 
CMP T0PMEM,(R4) 
BEQ 30024$ 
ADO «200.(R4) 
BR 300211 
300241: JSR PC.CHEKSUM 
BEQ 300251 
MOV 3«UDPAR7.SP 
MOV 4CKSUM.EMADR 
MOV «FATALR.ESADR 
ERR0R>52 
30023$: MOV a«U0PAR7.SP 
NOV OPRAHE.EMADR 
MOV 4FATALU.ESADR 
ERR0R«53 



;FIND LAST DIAGNOSTIC ADDRESS AND 
sINIT KIPAR5 AND Rl ACCORDINGLY 

;Use Rl as counter 
: Reset R2 to 120000 
;Read / modify / write 



sLoop control 
:Have we hit top yet? 

;Move window up 4 kwords 



;\\ 

: >> ERROR 52. CHECKSUM ERROR 

!// 

s\\ 

: » ERROR 53. 

!// 

{possible causes of this error 
;are bad address decoder, bad 
.■HOAL. interaction between RAM cells. 



300251: 

I Low byte data RAH should - 00000001. low byte parity RAH should « 0 

Check that writing ones at a low parity RAH address does not affect a 
memory cell at a higher address 

Read zero/ negate/ write one at 256 k low byte parity RAM locations 
starting at address 0 working up to address 1777776 

MOV «120000.RO 
JSR PC $UPPAR 

Low byte parity RAMs should be all ones, low byte data RAHs should * -1 

KIPAR5 should - 17600, ;R2 should ' 140000 

Check that writing zero at a high parity RAM address does not affect a 



14 
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1823 
1824 
1825 
1826 
1827 

1828 007442 012700 140000 

1829 007446 004737 007674 
1830 

1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 

1840 007452 012700 140000 

1841 007456 004737 007674 
1842 

1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 

1852 007462 012700 120000 

1853 007466 004737 010046 
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Menory cell at a lower address 

Read one/ negate/ write zero at 2S6k low byte parity RAM locations 
starting at 1777776 working down to lowest RAM address. 



MOV 
JSR 



#140000. RO 
PC. NONPAR 



Low byte parity RAMs should » 0, low byte data RAM should - 1 
KIPAR5 should « 0. R2 should ' 120000 

Check that writing one at a high address in the low byte parity RAM 
does not affect a memory cell at a lower address 

Read zero/ compliment/ write one starting at address 1777776 
working down to address 0. 



MOV 
JSR 



#140000, RO 
PC.$(}NPAR 



Low byte parity RAM should = all ones. Low byte data RAH should be all ones. 

KIPAR5 should = 0. R2 should = 120000 

Check that writing zero at a low address in the low byte parity RAM 
does not affect a memory cell at a higher address 

Read ones/ negate/ write zeros at 256k addresses 
starting at low RAM working up to address 1777776 



MOV 

JSR 



#120000, RO 
PC,$UPPAR 



N4 
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1855 
1856 
1857 
1858 

1859 007472 



007472 

1860 007472 

1861 007500 
186:- 

1863 007504 

1864 007506 
1365 007510 

1866 007514 

1867 007520 
1868 

1869 007524 
1870 

1871 007526 

1872 007530 

1873 007532 

1874 007536 

1875 007540 

1876 007544 

1877 007546 

1878 007552 

1879 007554 

1880 007560 
007566 
007574 

1881 007576 

1882 007602 
007610 
007616 

1883 007620 
1884 

1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 

1894 007624 

1895 007630 
1896 

1897 
1898 
1899 
1900 
1901 
1902 
1903 



012737 
004737 

005202 
000404 
012701 
012702 
112712 

105722 

005202 
077105 
023714 
001403 
062714 
000761 
004737 
001422 
013706 
012737 
012737 
104054 
013706 
012737 
012737 
104055 
005037 



012700 
004737 



007576 
010450 



010000 
120001 
000001 



005650 

000200 

010514 

177676 
010712 
010704 

177676 
010762 
010626 

177672 



120001 
010046 



177672 



044746 
044752 



044746 
044752 



Test high byte parity RAM 



HIPAR: 

:*TEST 3.6 HIGH BYTE PARITY RAM TEST 

T3.6:: 



101: 
15$: 



MOV 
JSR 

INC 

BR 

MOV 

MOV 

MOVB 

TST8 



*25*.a#UDPAR5 
PC.PROMLO 

R2 
15$ 

#4096. .Rl 
#120001. R2 
#1.(R2) 

(R2)* 



26<: 



25<: 



27$! 



INC R2 

506 R1.15$ 

CMP T0PMEM.(R4) 

6EQ 26< 

ADD #200. (R4) 

BR 10< 

JSR PC.CHEKSUM 

BEQ 27$ 

MOV S«UX>AR7.SP 

MOV «CKSUM,EMAOR 

MOV «FATALR,ESADR 
ERRGR*54 

MOV a«U0PAR7.SP 

MOV «PRAME.EHAOR 

MOV «FATALB.ESAOR 
ERR0R*55 

aR a#UDPARS 



:FIND LAST DIAGNOSTIC ADDRESS AND 
sINIT KIPAR5 AND Rl ACCORDINGLY 



Use Rl as a counter 

Point to high byte 

Write zeros at all high byte 

parity RAM locations (DATO) 
Ensure that it is zero (DATI) 

and increment R2 by one 
Make R2 point to next high byte 
Loop control 
Is KIPAR5 = Hi RAM 



Move window up 4 kwords 



: >> ERROR 54. CHECKSUM ERROR 



: >> 

!// 



ERROR 55. 



Hi^ byte data RAM should - 00000001, hig^ byte parity RAM should - 0 

Check that writing ones at a low address in the hi^Jh byte parity RAM 
(does not affect a nemory cell at a higher address 

Read zero/ negate/write one at 256 k high byte parity RAM locations 
starting at lowest physical RAM address ♦I working up to address 1777777 



MOV 
JSR 



#120001. RO 
PC,»UPPAR 



iHigh byte parity RAMs should be all ones, high byte data RAMs should - -1 
:KIPAR5 should « 17600. iR2 should - 140001 

Check that writing zero at a high address in the high byte parity RAM 
does not affect a memory cell at a lower address 

Read one/ negate/ write zero at 256k high byte parity RAM locations 



B 



5 
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1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 



007634 
007640 



007644 
007650 



007654 
007660 



007664 
007670 



012700 140001 
004737 00"'0"'4 



012700 140001 
004737 007674 



012700 120001 
004737 010046 



013706 177676 
000137 011232 



:startin9 at physical address 1777777 Morking dOMn to Iom RAM*1. 



MOV 
JSR 



#140001. RO 
PC,»DNPAR 



High byte parity RAMs should * 0, high byte data RAM should * 1 
KIPAR5 should - 0. R2 should ' 120001 

Check that writing one at a high address in the high byte parity RAM 
does not affect a memory cell at a lower address 

Read zero/ negate/write one starting at physical address 1777777 
working down to address 1. 



MOV 
JSR 



#140001. RO 
PC.*DNPAR 



High byte parity RAM should = all ones, high byte data RAM should be all ones. 
KIPAR5 should = 0. R2 should = 120001 

Check that writing zeros at a low address in the high byte parity RAM 
does not affect a memory cell at a higher address 

Read ones/ negate/ write zeros at 256k addresses 

starting at physical address 1 working up to address 1777777. 



MOV 
JSR 



#120001. RO 
PC.$UPPAR 



; STARTING BYTE 



At this point the functionality of 256k words of on board RAM 
has been demonstrated. Applications can now be executed from RAM, 
and trap and interrupt vectors can be initialized. 



MOV 
JMP 



9#U0PAR7.SP 
ENDRAM 



5 GET OLD STACK CONTENTS 
sBAIL OUT 



1974 
1975 



1976 



007674 
007702 

007706 
007712 
007716 
007720 
007724 
007726 
007730 
007734 
007736 
007740 
007744 
007750 
007754 
007756 
007760 
007766 
007772 
007774 
010000 
010002 
010006 
010014 
010022 
010024 
010030 
010036 
010^^4 



012737 
004737 

013714 
012701 
010002 
162702 
105412 
077104 
162714 
020314 
001365 
004737 
012702 
162702 
105412 
077104 
012737 
004737 
001003 
005037 
000207 
013706 
012737 
012737 
104056 
013706 
0127^7 
0127^7 
104057 



010024 177672 
010450 

005650 
010000 

000002 



000200 



C5 
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1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1%1 

1%2 

1%3 

1964 

1%5 

1%6 

1%7 

1968 

1%9 

1970 

1971 

1972 

1973 
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SUBROUTINE $ONPAR 



SUBROUTINE TO SET / aEAR HIGH OR LOU BYTE PARITY RAM AND TO CHECK FOR 
PARITY ERRORS STARTING AT HIGH RAM. 



ENTRY PARAMETERS: 



RO = STARTING ADDRESS 
R4 = KIPAR5 



$DNPAR: 

1$: 
2$: 



010450 
140000 
000002 



010024 
010514 

177672 

177676 
010712 
010704 

177676 
010762 
010640 



4$: 



177672 



044"'46 
044752 



044746 
044752 



MOV «3$,S«UDPAR5 
JSR PC.PROMLQ 



MOV T0PMEM.CR4) 

MOV *4096. .Rl 

MOV R0.R2 

SUB #2,R2 

NEGB CR2) 

SOB R1.2$ 

SUB «200.(R4) 

CMP R3.CR45 

BNE 1$ 

JSR PC.PROrt.0 

MOV #140000. R2 

SUB «2.R2 

NEGB (R2) 

SOB R1.4I 

MOV *3I,8#UDP/WS 

JSR PC.CHEKSUn 

BNE 51 

aR afUOPARS 

RTS PC 

5$: HOV 8fU)PAR7.SP 

NOV iCKSun.EmoR 

HOV fFATALR.ESAOR 
ERR0R*56 

3$: nOV aiUOPART.SP 

MOV iPRMC.EmOR 

NOV •FATALl.ESAOR 
ERR0R*57 



Anticipate parity error 

FIND LAST DIAGNOSTIC ADDRESS AND 

INIT KIPAR5 AND Rl ACCORDINGLY 

In it KIPAR5 to top of memory 

Initialize Rl 

Set R2 » starting address 

Get low byte 

Read /Mod /Write 

Loop control 

Hove window down 4 kwords 
Is KIPAR5 - low RAM 



Set R2- start 



Return to 3* on parity error 



!!\\ 

:i » ERROR 56. CHECKSUM ERROR 
;s\\ 

li >> ERROR 57, 
• •// 



UD 

KXJll 
T3.6 
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1978 
1979 
1960 
1901 
1982 
1983 
1984 
1985 
1966 
1987 
1968 
1989 
1990 
1991 
1992 
1993 
1994 



SUBROUTINE lUPPAR 



SUBROUTINE TO SET / CLEAR HIGH OR LOU BYTE PARITY RAM AND TO CHECK FOR 
PARITY ERRORS STARTING AT L?W RAM. 



ENTRY PARAMETERS: 



ON EXIT: 



RO * ADDRESS OF STARTING BYTE 
R4 « KIPAR5 

RO « ADDRESS OF STARTING BYTE 
Rl - 0 

R2 = R0*20000 

R3 = ADDRESS OF LOWEST RAM 
R4 = KIPAR5 
R5 « NOT AFFECTED 
KIPAR5 = 17600 





01P737 


010154 


177672 


iUPPAR: 


MOV 


«20$.9«UDPAR5 


1996 010054 


004737 


010450 

VX 






JSR 


PC.PROMLO 


1997 














1998 010060 


150002 








BIS8 


R0.R2 


1999 010062 


000403 








BR 


15$ 


2000 010064 


012701 


010000 




101: 


MOV 


*40%..R1 


2001 010070 


010002 








MOV 


R0.R2 


2002 010072 


105412 






15*: 


NEG6 


(R2) 


2003 














2004 010074 


005202 








INC 


R2 


2005 010076 


005202 








INC 


R2 


2006 010100 


077104 








SOB 


R1.15$ 


2007 010102 


023714 


005650 






CMP 


T0PMEM,(R4) 


2008 010106 


001403 








BEg 


25$ 


2009 010110 


062714 


000200 






ADO 


#200. (R4) 


2010 010114 


000763 








BR 


10$ 


2011 010116 


004737 


010514 




25$: 


JSR 


PC.CHEKSUM 


2012 010122 


001003 








BNE 


22$ 


2013 010124 


005037 


177672 






aR 


94UDPAR5 


2014 010130 


000207 








RTS 


PC 


2015 010132 


013706 


177676 




22$: 


MOV 


a#UDPAR7.SP 


2016 010136 


012737 


010712 


044746 




MOV 


KKSUn.EMAOR 


010144 


012737 


010704 


044752 




MOV 


4FATALR.ESADR 


010152 


104060 








ERRQR*60 


2017 010154 


013706 


177676 




20$: 


MOV 


8fUDPAR7.SP 


2018 010160 


012737 


010762 


044746 




MOV 


«PRAME.EMA0R 


010166 


012737 


010640 


044752 




MOV 


4FATAL1.ESA0R 


010174 


104061 








ERR0R*61 



Anticipate parity error 

FIND LAST DIAGNOSTIC ADDRESS AND 

INIT KIPAR5 AND Rl ACCORDINGLY 



Use Rl as a counter 
Reset R2 to starting byte 
Read/mod if y/Mrite ones to parity RAM 
write all ones to low byte data RAM 
Increment R2 by two to next high or low 
..byte depending on what we're testing. 
Loop control 
Have we hit top yet? 

Move window up 4 k words 



2019 
2020 
2021 



!\\ 

: » ERROR 60. CHECKSUM ERROR 
;// 

; Comes here on a parity error 

: >> ERROR 61. 

;// 

-.possible causes of this error 

:are bad address decoder, bad 

;MDAL, interaction between RAM cells. 



E5 
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2023 
2024 

2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 

2033 010176 
010176 

010202 
0102C4 
010210 
010214 
010216 
010220 
010222 
010224 
010230 
010232 
010236 
010240 
010244 
010246 
010252 
010260 
010266 
010270 
010274 
010302 
010310 



010312 
2034 010312 



SUBROUTINE «UPURD 



SUBROUTINE TO READ / MODIFY / WRIT^ ALL MEMORY LOCATIONS 
STARTING AT LOU RAM, 



004737 010450 



ENTRY PARAMETERS: 
lUPURO: 



RO = EXPECTED DATA AFTER READ/ MOO/ WRITE 
R4 = KIPAR5 



000404 
012701 
012702 
005112 
020022 
001023 
077104 
023714 
001403 
062714 
000762 
004737 
001422 
013706 
012737 
012737 
104062 
013706 
012737 
012737 
104063 



000207 



010000 
120000 



005650 
000200 
010514 

177676 

010712 044746 
010704 044752 

177676 

011006 044746 
010634 044752 



30026$: 
30027*: 



30029$: 



300281: 



JSR 



PC.PROMLO 



BR 30027$ 

MOV *40%..R1 

MOV #120000. R2 

COM (R2) 

CMP R0.(R2)* 

BNE 30028$ 

SOB Rl. 30027$ 

CMP T0PMEM,(R4) 

6EQ 30029$ 

ADD «200,(R4) 

BR 30026$ 

JSR PC.CHEKSUM 

BEQ 30030$ 

MOV a#U0PAR7.SP 

MOV ©CKSUM.EMADR 

MOV #fATALR,ESAOR 
ERR0R«62 

MOV SMJDPAR7,SP 

MOV MAME.EMAOR 

MOV 4FATALU.ESA0R 
ERR0R«63 



30030$: 



:FINO LAST DIAGNOSTIC ADDRESS AND 
;INIT KIPAR5 AND Rl ACCORDINGLY 

Use Rl as counter 
Reset R2 to 120000 
Read / modify / write 

Branch to error 

;Loop control 
sHave we hit top yet? 

;Move window up 4 kwords 



!\\ 

; >> ERROR 62, CHECKSUM ERROR 
!// 

!\\ 

; >> ERROR 63, 
;// 

; possible causes of this error 
bad address decoder, bad 
•f^'L. interaction between RAM cells. 



RTS 



PC 



F 



004737 010450 



013714 
012701 
012702 
005142 
020012 
001031 
077104 
162714 
020314 
001364 
004737 
012702 
005142 
020012 
001015 
077104 
004737 
001422 
013706 
012737 
012737 
104064 
013706 
012737 
012737 
104065 

000207 



30031$: 
30032»: 



KXJU-CA FUNCTIONAL TEST nACRO Y05.02 

T3.6 HIGH BVTE P/WlTf RATI TEST 

2036 
2037 
203« 
2039 
2040 
2041 
2042 
2043 
2044 
2045 

2046 010314 
010314 

010320 
010324 
010330 
010334 
010336 
010340 
010342 
010344 
010350 
010352 
010354 
010360 
010364 
010366 
010370 
010372 
010374 
010400 
0.^02 
.iC406 
010414 
010422 
010424 
010430 
010436 
010444 
010446 

2047 010446 
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1SUBR0UTI« $DNURO 


: SUBROUTINE TO READ 


/ MODIFY 


/ URITE ALL MEMORY LOCATIONS 


: STARTING AT TOP OF 


MEMORY 




i ENTRY PARAMETERS: 


RO « 


EXPEC^E? HA'H fER READ/ MX/ 




R4 ' 


KIPAR5 


iONURD: 







JSR 



PC.PROMLO 



005650 
010000 
140000 



000200 



010450 
140000 



010514 
177676 

010712 044746 
010704 044752 

177676 

011006 044746 
010634 044752 



15$: 



30033$: 



30034$: 



T0PMEM.(R4) 
#40%.. Rl 
#140000. R2 
-(R2) 
R0.CR2) 
30033$ 
Rl. 30032$ 
#200, (R4) 
R3.CR45 
30031$ 
PC.PROMLO 
#140000. R2 
-(R2) 
R0.(R2) 
30033$ 
R1.15$ 
PC.CHEKSUM 
30034$ 
a#U0PAR7,SP 
«CKSUH.EMAOR 
^TAfALR.ESAOR 
ERR0R*64 
MOV afUDPART.SP 
MOV «RAME,EMAOR 
MOV «FATALU.ESAOR 
ERROR *65 



MOV 
MOV 
MOV 
COM 
CMP 



bo6 
CMP 
BNE 

Mbrf 
COM 
CMP 
BNE 
SOB 
JSR 
BEQ 
MOV 
MOV 
MOV 



FIND LAST DIAGNOSTIC ADDRESS AND 
INIT KIPAR5 AND Rl ACCORDINGLY 
In it KIPAR5 to top of memory 
Initialize Rl 
Set R2 - 140000 
R»i*d / modify / write CDATIO) 
^^-tC (DATI) 
Should be zeros 

;Loop control 
Move NindoM down 4 kwords 
Is KIPAR5 » low RAM 



;\\ 

! » ERROR 64, CHECKSUM ERROR 
;// 

!\\ 

: » ERROR 65. 

j// 



RTS 



PC 



2049 

2050 
2051 



FUNCTIOML TEST 
HIGH B'^*" PARITY RAM 



'LSI 
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2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 



010450 
010454 
010456 
010462 
010466 
010472 
010476 
010502 
010504 
010506 
010512 



012702 
010203 
C4. '03 
0*c/02 
072327 
010337 
012701 
160201 
006201 
062702 
000207 



051510 

017777 
160000 
177772 
172352 
020000 



120000 



SUBROUTINE PROMLO 



SUBROUTINt TO OETERMIKt WHERE LAST DIAGNOSTIC ADDRESS IS SO THAT 
DIAGNOSTIC UILL NOT GET BLCWN AUAY BY RAM TEST 

ENTRY PARAMETERS: R4 = KIPAR5 

ON EXIT: KIPAR5 AND R3 UILL CONTAIN ADDRESS OF LOU RAM 



PROMLO: 



MOV 
MOV 
SIC 
BIC 
ASH 
MOV 
MOV 
SUB 
ASR 
ADO 
RTS 



.R2 



«LAS 

R2.r ' 
#17777. 
#tC17777,R2 
«-6.R3 
R3.aOKIPAR5 
#20000. Rl 
R2.R1 
Rl 

#120000. R2 
PC 



GET PAGE BITS 
GET OFFSET 

SHIFT IT FOR PAR ALIGNMENT 
PAGE UHERE TOP OF PROGRAM IS 
NOU FIGURE NOW MANY BYTES UE ARE 

FROM THE TOP OF THE PAGE 
NUMBER OF UORDS REMAINING IN 8KB BLK 

Return . 



-J 

KXJll CA FUNCTIONAL TEST MACRO Y05.02 
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2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 



010514 

010514 005002 

010516 012703 051506 

010522 005001 

010524 062102 

010526 020301 

010530 002375 

010532 020237 177666 

010536 000207 



StJBROUTINE TO OBTAIN THE CHECK SUM OF THE DIAGNOSTIC 
RESIDEHT IN Rftfi TO DETERMINE IF ANY LOCATIONS HAVE BEEN 
CORRUPTED BY ACTIVITY IN OTHER AREAS OF RAM. 



CHEKSUM: 



1«: 



aR 

MOV 

aR 

ADO 
CMP 
BGE 
CMP 
RTS 



R2 

#LASTAD.R3 
Rl 

(R1)*.R2 

R3.R1 

1* 

R2.8#177666 
PC 



. .2 UILL HOLD SUM IGNORING CARRIES 



15 
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2087 
2088 
2039 
2090 
2091 
2092 
2093 
2094 
2 '/5 
20% 
2097 
?098 
<^ 



2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
211B 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 



010540 
010546 
010550 
010556 
010562 
010564 
010570 
010574 

010602 
010610 
010616 
010620 
010624 

010V6 
010632 

010634 
010640 
010644 
010650 
010654 
010660 
010664 
010670 
010672 
010673 
010674 
010700 
010702 
010703 
010704 
010710 
010712 
010733 
010762 
011006 
011030 
011063 



011110 
011114 
011116 



042737 
011616 
016666 
005037 
010605 
013706 
011537 
162737 

012737 
012737 
104066 
012716 
000002 

162702 
000402 

162702 
005037 
010237 
011437 
004737 
104401 
013746 
104403 
002 
000 
013746 
104403 
005 
001 
012716 
000207 
015 
015 
015 
015 
015 
101 



013746 
104402 
000207 



000002 

000002 
177572 

177676 
001122 
000002 

011030 
011110 

011232 



000001 



000002 
177572 
001122 
001120 
011120 
011063 
001120 



001i<:2 



011232 

012 
012 
012 
012 
012 
124 



001122 



177540 
000002 

001122 

044746 
044752 



103 
120 
120 
122 
102 
040 



ERROR ROUTINES 



TRP.4: 



BIC «2.a0K2CSRJ 

MOV (SP).(SP) 

MOV 2(SP).2(SP) 

aR aOMMRO 

MOV SP.R5 

MOV a«<JDPAR7,SP 

MOV (R5}.S#t6DA0R 

SUB «2.M$BDA0R 

MOV OBUSTO.EMAOR 

MOV STOEH.ESADR 
ERROR ♦66 



FATALB: 



FATALU: 
FATALl: 



FATALR: 

CKSUH 

PARE: 

PRAME 

RAME: 

BU«.TO 

RAMTXT 

.EVEN 



MOV 
RTI 

SUB 
BR 

SUB 

CLR 

MOV 

'lOV 

JSR 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

MOV 

TYPOS 

.BYTE 

.BYTE 

MOV 

RTS 

•ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



#ENDRAM.(SP) 



: DISABLE WRITING WRONG PARITY JUST IN CASE 

AND ENSURE THAT STACK PARITY IS OK TOO 
. UE DON'T WANT POSSIBLE BAD PARITY 
:TURN OFF ftlU 

; AVE CONTENTS OF THE STACK 
:SET NT- S^ACK 

j.iv'J PC AT TIME OF TRAP TO 4 

: CALCULATE ADDRESS AT WHICH TIME OUT OCCURRED. 

. . \\ 

II >> ERROR 66. RAM TIMED OUT 
. .// 

I ALTER RETURN ADDRESS 



*1.R2 
FATALl 

«2,R2 
9«MHR0 
R2.S#$B0ADR 
CR4},9«$GDADR 
rC.PACONV 
.RAMTXT 

S«$G0ADR.-CSP} 

2 
0 

8*$BDA0R,-CSP) 

5 
1 

«EN0RAM,CSP) 
PC 

<CR><LF>/CHECKSUM ERROR/ 
<CR><LF>/PARITY CIRCUIT ERROR/ 
<CR><LF> /PARITY RAM ERROR / 
<CR><LF>/RAM TEST ERROR / 
<CR><LF>/BUS TIME OUT AT ADDRESS / 
/AT PHYSICAL ADDRESS / 



;GET ADDRESS OF FAILING BYTE 



GET ADDRESS OF FAILING WORD 
MMU OFF 

MOVE FAILING VIRTUAL LOCATION TO »BDADR 
MOVE CONTENTS OF KIPAR5 TO $GDADR 



sTYPE 2 DIGITS 
{SUPPRESS LEADING ZEROS 



:TYPE 5 DIGITS 
{PRINT LEADING ZEROS 

{ALTER RETURN ADDRESS 



BUS TIME-OUT ERROR HANDLER 
TOEH: 



MOV 
TYPOC 
RTS 



8*$BDADR.-(SP) {LOAD FAILING VIRTUAL ADDRESS 

{TYPE IT 
PC 



RECONSTRUCT THE FAILING PHYSICAL ADDRESS 
ON ENTRY: 



ON EXIT: 



♦BDADR CONTAINS THE ADDRESS OF THE FAILING VIRTUAL ADDRESS. 
♦GDADR CWTAINS THE VALUE IN KIPAR5 

♦BDADR CONTAINS THE LOW FIVE DIGITS OF THE '•'I' TNG PHYSICAL ADR 



j5 
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2142 
2143 

2144 011120 

2145 011122 

2146 011126 

2147 011132 

2148 011134 

2149 011136 

2150 011144 

2151 011152 

2152 011160 

2153 011164 

2154 011166 

2155 011172 
2156 



005000 
012701 
006337 
006100 
077104 
042737 
063737 
042737 
006337 
0061C0 
010037 
000207 



000006 
001120 



160000 
001120 
100000 
001120 

001120 



PACONV: 



001122 
001122 
001122 



CLR 
MOV 

ASL 
ROL 
SOB 
BIC 
AOO 
BIC 
ASL 

ROL 
MOV 
RTS 



*GOAOR CONTAINS THE HIGH FIVE DIGITS OF THE FAILING PHYSICAL AOR 



RO 

«6.R1 

WtGOAOR 

RO 

Rl.l* 

#tC17777,a*$B0ADR 

9«IGDADR,9«$BDADR 

«8IT15,9«IBDA0R 

a«$GOAOR 

RO 

R0.9«$G0ADR 

PC 



: ROTATE PAGE NUMBER 
: . . INTO RO 



MAKE BIT 15 ZERO 
\ 

>F0R OCTAL PRINT OUT FORMAT 

/ 



I<5 



005737 177672 



177777 177672 



KXJll-CA FUNCTIONAL TfST fWCRQ Y05.02 
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2158 
2159 
2160 
2161 

2162 011174 

2163 

2164 

2165 

2166 

2167 011200 

2168 011202 

2169 011210 

2170 011212 

2171 011216 

2172 011222 
2173 

2174 011230 

2175 

2176 

2177 011232 

2178 011236 

2179 011242 

2180 011250 

2181 011256 
011264 

em 011272 
2184 011274 
2x85 011302 

2186 011304 

2187 011310 
011310 
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001410 
022737 
001002 
000137 
013716 
052766 

000002 



005037 
005037 
012737 
012737 
012737 
032737 
001004 
052737 
000402 
005037 

000400 



002416 
177672 
000002 



177572 
002426 
000006 
000116 
000004 
000001 



000002 



000004 
000114 
000116 
001174 



000001 177540 
177540 



; Parity error handler 
^ARERR: TST 30UDPAR5 



2*: 
1«: 



BEQ 

CMP 
BNE 
JMP 
MOV 
BIS 

RTI 



II 

«-l.a«UDPARS 
2% 

9«UNXTRP 

a*UDPAR5,(SP) 

*2.2(SP) 



Using U0PAR5 as indicator of expected 
— or unexpected parity error. 
0« expected 

1* unexpected 
other non-zero ' address to return to. 



Is UDPAR5 



-1? 



Go to unexpected trap routine 
New return address 
Set the V bit in new psM to indicate 
a parity error 



; Before going to the next test restore the stack. 

OFF THE MMU 



ENORAM: CLR 
CLR 
MOV 
MOV 
MOV 
BIT 
BNE 
BIS 
BR 

1$: CLR 
2$: 

BR 



t»MMRO 
TRAP4X 
«6,a«4 
«116,9«114 
*I0T.8#116 
«8IT00,«PASS 
II 

«6IT00.S«K2CSRJ 
21 

a«K2CSRJ 
TST4 



Restore trap vector 

Furthur parity errors are not expected. 

IS PASS COUNTER EVEN 

ENABLE PARITY ERROR DETECTION ON EVEN 
PASSES 

DISABLE PARITY ERROR DETECTION 



L5 
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2189 
2190 



011312 








I5i4: 








vie tvo 








nuv 


vo 1 nUW t Or 


011320 


012737 


177777 


002426 




MOV 


*-l.TRAP4X 


011326 


005037 


044742 






CLR 


EMPRE 


011332 


000402 








BR 


30036$ 


011334 


000137 


012506 




30035$: 


JMP 


TST5 


011340 


104415 


011346 




30036$: 


T$NAME, 


.♦4 


011344 


000416 








BR 


30037$ 


011346 


040 


040 


103 




.ASCIZ 
• EVEN 


\ CONSOLE 


011402 








30037$: 







2191 






2192 






2193 






2194 






2195 






2196 






2197 


011402 


032777 


2198 


011410 


001410 


2199 


011412 


032777 


2200 


011420 


001404 


2201 


011422 


104401 


2202 


011426 


104407 


2205 


011430 


000730 


2206 


011432 






011432 


012737 


2207 


011440 


013705 


2208 


011444 


012704 


2209 


011450 


004737 


2210 


011454 


000401 


2211 







011456 

2212 011460 

2213 011466 

2214 011470 

2215 011474 

2216 011476 

2217 011502 
2218 

011504 

2219 011506 

2220 011512 
2221 

011514 

2222 011516 

2223 011522 
2224 



104067 
132737 
001403 
005737 
001010 
004737 
000401 



104070 
004737 
000401 



104071 
105037 
000137 



000400 
000177 
012436 



011516 
001144 
000060 
011526 



000001 
001174 
011750 

012222 



001103 
012504 



167530 
167520 



001160 



SLU1K2.MAC 23 -OCT 85 

*TEST 4 CONSXE SERIAL LIMI 0C51'^ 



SET A aEAN STACK. 
DISMISS BUS ERRORS. 
CLEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
...AND SKIP OVER THE ASCII. 
SERIAL LINE DC319\ 



TEST THAT THE CONSOLE PORT INTERRUPTS AS ADVERTISED. 

**• NOTE: LOOP OPTIONS (SUR<9> AND SUR<8>) ARE DISALLOWED, 
*** LEST UE LOSE CONTACT WITH THE CONSOLE TTY:. 



1$: 



BIT 


«6IT8.9SWR 


SWR<8> SET ?? 


BEQ 


1$ 


BR IF NOT. 


BIT 


*177.aSWR 


SWR<6:0> CLEAR ?? 


BEQ 


1$ 


BR IF SO 


TYPE 


.CANT 


LOOP-ON-TEST NOT PERMITTED. 


GTSWR 


GET ANOTHER SWITCH. 


BR 


TST4 




MOV 


«$ . $ESCAPE 


: ESCAPE TO 3$ ON ERROR 


MOV 


$TKS.R5 


RCSR POINTER -> R5. 


MOV 


#TKVEC.R4 


VECTOR POINTER »> R4. 


CALL 


DC.XMT 


EXECUTE XMTR INTERRUPTS... 


BR 


2$ 


...AND RETURN HERE IF OK 



001206 2$ : 
10$: 

4$: 

3$: 



ERR0R*67 

BITB «1.9«$ENV 

BEQ 10$ 

TST $PASS 

BNE 3$ 

CALL DC.RCV 

BR 4$ 



ERROR* 70 
CALL DC. DAT 
BR 3$ 



ERROR* 71 
CLRB $ERFLG 
JMP END3LU 



s\\ 

; » ERROR 67, TRANSMIT INTERRUPT ERROR 
;// 

IN APT MODE? 

DO TEST IF NOT 

IS THIS THE FIRST PASS 

IF NOT THEN DON'T DO THE NEXT TESTS. 

EXECUTE RCVR INTERRUPTS... 
...AND RETURN HERE IF OK. 
;\\ 

! » ERROR 70. RCVR INTERRUPT ERROR. 
;// 

EXECUTE DATA TESTS 
...AND RETURN HERE IF OK 

s\\ 

; >> ERROR 71. CONSOLE DATA TEST ERROR 
;// 

DISALLOW SWR<9> IN NEXT .SCOPE. 
< AND THATS ALL> 



KXJll 
T4 



CA FUNCTIONAL TEST 



CONSae SERIAL LI>C 0C319 
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2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 



2252 
2253 
2254 
2255 
2256 
2257 



2258 

2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 



2267 
2266 
2269 
2270 
2271 
2272 



011526 
011534 
011540 
011544 
011550 
011556 
011564 
011570 
011572 
011600 
011602 
011604 
011606 
011614 
011622 
011624 

011626 
011634 
011640 
011642 
011650 
0U656 
011660 

011662 
011670 
011674 
011676 
011700 
011702 
011704 
011712 
011720 

011722 
011730 
011736 
011742 
011746 



000004 
000006 
000004 
000006 

012737 
016446 
016446 
106427 
012764 
012764 
105765 
100375 
052765 
000240 
000411 
022626 
012737 
012737 
000240 
000436 

012764 
106427 
000240 
012737 
012737 
000240 
000420 

012764 
012716 
000002 
000240 
000413 
022626 
012737 
012737 
000240 

062766 
042765 
012664 
012664 
000207 



047211 
000004 
000006 
000200 
011604 
000200 
000004 



047225 
045206 



011662 
000000 

047265 
045206 



011702 
011676 



047314 
045206 



000002 
000100 
000006 
000004 



044742 



000004 
000006 



000100 000004 



044746 
044752 



000004 
000004 



ON ENTRY. fR5) = RCSR AND (R4) = VECTOR. 
RETURN TO CALL*2 IF OK. CALL*4 IF ERROR. 

*** TRANSMITTER *** 

CHECK THAT THE XMTR INTERRUPTS THRU VECTOR (R4) AT LEVEL 4 
AND THAT THE INTERRUPT ACKNOWLEDGE DROPS THE REQUEST. 



044746 
044752 



000004 31: 



044746 
044752 



000004 41 : 



TLS= 


4 






TbLr = 


b 






T VEC= 


ICS 






TDDT* 


TDI C 






IV* VMT . 


nuv 


ACI TV CMDDC 


CCT CDOnO DOfCTV 

bt 1 tKKUK rKLr IX . 




Mnu 


1 VtH.K«» J , - lor J 


oHvt xn 1 K » tU 1 UK . . . 




MOV 


TPRICR4) -CSP) 


AND LEVEL 




MTPS 


vPR4 


■raise CPU TO XMTR LEVEL. 




MOV 


*2*,TVECCR4) 


SET XMTR VECTOR... 




MOV 


*PR4,TPRICR4) 


...AND LEVEL. 


11: 


TSTB 


TCSCRS) 


WAIT FOR XMTRDY. 




BPL 


1$ 






BIS 


*100. TCSCRS) 


SET INTERRUPT ENABLE. 




240 


INTERRUPT SHOULD BE HELD OFF.. 




BR 


3* 


...BR IF SO. 


21: 


CMP 


CSP)*.CSP)* 


IT WASN'T... 




MOV 


#SLI2.EMADR 


; SET ERROR MESSAGE... 




MOV 


«NOSIG.ESADR 


; . . .AND SIGNATURE POINTERS. . . 




NOP 




ERROR WILL BE CALLED LATER. 




BR 


61 


■ GET OUT "INT LEVEL INCORRECT". 



51: 



6^ 
7*: 



MOV 
MTPS 
240 
MOV 
MOV 
NOP 

BR 

MOV 
MOV 
RTI 
240 
BR 
CMP 
MOV 
MOV 
NOP 

ADO 
BIC 
MOV 
MOV 

RETURN 



#4*,TVEC(R4) 
#PRO 

#SLI3,EMA0R 
«NOSIG,ESADR 

6$ 

#5*,TVECCR4) 
#.*6.CSP) 



7* 

CSP)*,CSP)* 
#SLI4,EMA0R 
«NOSIG.ESAOR 



#2.4CSP) 
#100. TCSCRS) 
CSP)*,TPRICR4) 
CSP)*.TVECCR4) 



CHANGE THE VECTOR. 
LOWER CPU PRIORITY. 
INTERRUPT SHOULD HAVE COME IN. 
SET ERROR MESSAGE... 
. . .AND SIGNATURE POINTERS. . . 
...ERROR WILL BE CALLED LATER. 
GET OUT "INT NOT RECEIVED". 

INT REC'D, CHANGE THE VECTOR. 

RESTORE CPU PRI 0... 
...SHOULD NOT GET ANOTHER. 
...OK. EXIT. 

2ND INTERRUPT -- TROUBLE... 
SET ERROR MESSAGE... 
..AND SIGNATURE POINTERS... 
..ERROR WILL BE CALLED LATER. 

ERROR -- TAKE SKIP RETURN. 
CLEAR THE INT ENABLE. 
RESET VECTOR. 



N5 



KXJll 
T4 
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2274 
2275 
2276 
2277 
2278 
2279 
2260 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 



2302 
2303 
2304 
2305 
2306 
2307 



2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 



2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 



011750 
011756 
011762 
011766 
011772 
012000 
012006 
012014 
012016 
012022 
012026 
012030 
012032 
012040 
012046 
012050 
012052 
012054 
012062 
012070 
012072 

012074 
012102 
012106 
012110 
012116 
012124 
012126 

012130 
012136 
012142 
012144 
012146 
012150 
012152 
012160 
012166 

012170 
012176 
012204 
012210 
012214 
012220 



000000 
000002 
000000 
000002 

012737 
016446 
016446 
106427 
012764 
012764 
052765 
005000 
110065 
105765 
100401 
077004 
042765 
052765 
000240 
000411 
022626 
012737 
012737 
000240 
000436 

012764 
106427 
000240 
012737 
012737 
000240 
000420 

012764 
012716 
000002 
000240 
000413 
022626 
012737 
012737 
000240 

062766 
042765 
116500 
012664 
012664 
000207 



047217 
000000 
000002 
000200 
012052 
000200 
000004 

000006 
000000 



000004 
000100 



047225 
045206 



012130 
000000 

047265 
045206 



012150 
012144 



047314 
045206 



000002 
000100 
000002 
000002 
000000 



, -** RECEIVER *** 

, NOU USE THE "MAINT" SUITCH AND DO THE SAME FOR THE RCVR. 
; EXPECT INTERRUPTS THRU VECTOR CR4} AT LEVEL 4. 



RCS= 
ReUF= 
RVEC= 
RPRI- 



044742 



000000 
000002 
000004 



000004 
000000 



044746 
044752 



000000 3(: 



044746 
044752 



000000 4$: 



044746 
044752 



000004 
000000 



5$; 



6$; 
7$: 



0 
2 

RCS 
R6UF 



DC RCV- 


MOV 


*SLIR EMPRE 




SET ERROR PREFIX 




MOV 


RVECCR4).-CSP) 


i 


SAVE RCVR VECTOR 




MOV 


RPRICR4),-(SP) 


t 


AND LEVEL 




MTPS 


4PR4 


1 


RAISE CPU LEVEL. 




MOV 


«2$.RVEC(R4) 




SET RCVR VECTOR. . 




MOV 


#PR4.RPRICR4) 


t 


...AND LEVEL. 




BIS 


#4.TCSCR5) 


i 


CLOSE "MAINT" SUITCH... 




CLR 


RO 








MOVE 


R0.TBUFCR5) 


i 


...TRANSMIT A NULL CHARACTER... 


1*: 


TSTB 
BMI 


RCSCR5) 
.♦4 


t 


. ..UAIT 'TIL RCVR GETS IT... 




SOB 


RO.l* 


* 


. . . (BUT DON' T WAIT FOREVER) . . . 




BIC 


*4.TCS(R5) 


9 


...AND OPEN "MAINT" SWITCH. 




BIS 


#100,RCS(R5) 


i 


NOW. SET RCVR INTERRUPT ENABLE 




240 


■ 


INTERRUPT SHOULD BE HELD OFF.. 




BR 




• 


...BR IF SO. 


2$: 


CMP 


(SP)*.(SP)* 


i 


IT WASN'T. . . 




MOV 


#SLI2,EMADR 


t 


; SET ERROR MESSAGE. . . 




MOV 


«NOSIG.ESAOR 


f 


! . . .AND SIGNATURE POINTERS. . . 




NOP 


t 


!... ERROR WILL BE CALLED LATER. 
GET OUT "INT LEVEL INCORRECT". 




BR 


6$ 


• 



MOV 
MTPS 
240 
MOV 
MOV 
NOP 

BR 

MOV 
MOV 
RTI 
240 
BR 
CMP 
MOV 
MOV 
NOP 

ADD 

BIC 

MOVB 

MOV 

MOV 

RETURN 



«4$,RVEC(R4) 
«PRO 

#SLI3.EMADR 
«NOSIG,ESAOR 

6( 

«5$,RVEC(R4) 
#.*6.CSP) 



71 

(SP)*.(SP)* 
»SLI4.EnA0R 
«NO£IG.ESADR 



#2.4CSP) 

#100,RCS(R5) 

RBUF(R5).R0 

(SP)»,RPRI(R4) 

(SP)*.RVEC(R4) 



; CHANGE VECTOR... 

5...AND LOWER CPU PRIORITY. 

; INTERRUPT SHOULD COME IN. 

;; SET ERROR MESSAGE... 

; ; . . .AND SIGNATURE POINTERS. . . 

; • . . .ERROR WILL BE CALLED LATER. 

; GET OUT "INT NOT RECEIVED". 

; INT RECEIVED, CHANGE THE VECTOR. 

; RESTORE CPU PRI 0... 

{ SHOULD NOT GET ANOTHER... 

;...0K, EXIT. 

i DOUBLE RCVR INTERRUPT. 

t: SET ERROR MESSAGE... 

..AND SIGNATURE POINTERS... 
..ERROR WILL BE CALLED LATER. 

; ERROR -- TAKE SKIP RETURN. 
: aEAR THE INT ENABLE. 
: LOWER RCVR DONE FLAG. 
; RESET VECTOR... 

; RETURN FROM RECEIVER INTERRUPT TESTS 



B6 



KXJU 
T4 
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2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2366 



2369 
2370 
2371 
2372 
2373 
2374 
2375 



012222 
012226 
012232 
012240 
012242 
012250 
012256 
012262 
012264 
012270 
012272 
012276 
012302 
012304 
012310 
012312 
012316 
012320 
012324 
012326 
012330 
012334 
012340 
012342 
012344 

012346 
012350 
012352 
012356 
012362 
012364 
012370 
012372 

012374 
012400 
012404 
012412 
012420 
012422 

012426 
012434 
012436 

012504 
012504 



005037 
105237 
123727 
103403 
112737 
052765 
012700 
112001 
105737 
100375 
105037 
105737 
100375 
105737 
001372 
005737 
100762 
105737 
100767 
005002 
110165 
105765 
100406 
077204 
000413 

112001 
001426 
010165 
105765 
100375 
016502 
120102 
001765 

010137 
010237 
012737 
012737 
000240 
062716 

042765 
000207 
200 



000400 



044742 
037625 
037625 

000040 
000004 
037600 

177564 

177566 
177560 

177562 

177562 

177560 



000006 
000000 



000006 
000000 

000002 



001124 
001126 
047356 
045326 

000002 

000004 

H4 



SLIDE A BIT THRU THE INTERNAL (MAINT) LOOP. 

NOTE: IF THERE'S A TERMINAL ATTACHED. YOU'LL SEE GARBAGE 
CHARACTERS ON THE SCREEN - DON'T WORRY ABOUT IT !• 



000177 

037625 
000004 



DC. DAT: 

U: 

16$: 

15*: 
17$: 



10*: 
2$: 



41: 

5$: 
6t: 



7*! 



044746 
044752 



000004 
117 



81: 

CANT: 

ENDSLU: 



aR 

INC8 

CMPB 

BLO 

MOVB 

BIS 

MOV 

MOVB 

TSTB 

BPL 

CLRB 

TSTB 

BPL 

TSTB 

BNE 

TST 

BMI 

TSTB 

BMI 

CLR 

MOVB 

TSTB 

BMI 

soe 

BR 

MOVB 

B£Q 

MOV 

TSTB 

BPL 

MOV 

CMPB 

BEQ 

MOV 
MOV 
MOV 
MOV 
NOP 

ADO 

BIC 

RETURN 
.ASCIZ 
.EVEN 

BR 



EMPRE 
VARC 

VARC,n77 
1* 

#40. VARC 

*4.TCS(R5) 

#FLT10.R0 

(R0)*.R1 

a#l 77564 

16* 

a#l 77566 
a#177560 
15* 

a#l 77562 
15$ 

a#177562 
16* 

a#l 77560 

17$ 

R2 

R1,TBUFCR5) 

RCS(R5) 

6* 

R2.2t 
7* 

(R0)*.R1 
6* 

R1.TBUF(R5) 

RCSCRS) 

6« 

RBUF(R5}.R2 

R1.R2 

4« 

Rl.tGOOAT 
R2.IBD0AT 
*SLIS.EMAOR 
#eF4.ESW)R 

#2.(SP) 

#4.TCS(R5) 

<CRLF>\LOOP 

TST5 



m PREFIX, 

BUMP THE VARIABLE CHARACTER.. 
...'TIL IT REACHES <OEL>... 

!!.'RESEt*iT TO <SPACE>. 

SET XMIT MAINT BIT. 

DATA TABLE POINTER >> RO... 
...1ST CHAR -> Rl... 



! FLUSH OUT ANY ERRORS 

; CLEAR OUT RECEIVER BUFFER 

• 

ANY ERRORS IN RX BUFFER? 

IS BUFFER EMPTY NOW? 

...AND KEEP- ALIVE TIMER »> R2. 

XMIT 1ST CHAR <CR>... 
...AND UAIT FOR RCVR DONE. 

OK. CONTINUE AT 6*. 

DON'T WANT TO HANG !!! 

LOOP'S OPEN. QUIT (VWILE YOU'RE AHEAD). 

NOW FLOAT DATA THRU THE LOOP... 
...UNTIL DONE. 
XMIT A BYTE... 

;...AND READ JT BACK, 
s LOOP IF OK. 



DATA ERROR. SAVE EXP'D... 
..REC'O... 

SET ERROR MESSAGE... 
. . .AND SIGNATURE POINTERS. . . 
...ERROR UILL BE CALLED LATER. 
..AND TAKE SKIP RETURN. 



! DONE, aEAR MAINT SWITCH... 
;...AND RETURN. 
ON CONSOLE TEST NOT PERMITTED\<CRLF> 



C6 
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2377 



012506 


000004 






012510 


012706 


001100 




012514 


012737 


177777 


002426 


012522 


005037 


044742 




012526 


000402 






012530 


000137 


013026 




012534 


104415 


012542 




012540 


000420 






012542 


040 


040 


114 


012602 









;<»••***•***********************•*****************•*****»*** ***** 

♦TEST 5 LINE aOCK (BEVNT) INTERRUPT 

;*************************************************************** 



2378 
2379 
2380 
2381 
2382 

2383 012602 

2384 012606 

2385 012614 
2386 

2387 012616 

2388 012620 
2389 

2390 012622 
012622 

2391 012630 

2392 012634 

2393 012636 

2394 012640 

2395 012644 
23% 012646 

2397 012650 

2398 012652 

2399 012654 

2400 012656 
012664 
012672 

2401 012674 

2402 012700 

2403 012702 

2404 012704 

2405 012706 
012714 
012722 

2406 012724 
2407 

2408 012726 

2409 012732 

2410 012734 

2411 012736 

2412 012742 

2413 012744 

2414 012746 

2415 012750 



TST5: 



30038$: 
300391: 



30040$: 



SCOPE 
MOV 
MOV 

aR 

BR 
JMP 

T$NAME. 
BR 

.ASCIZ 
.EVEN 



*STACK.SP 

#-l.TRAP4X 

EMPRE 

30039$ 

TST6 

.♦4 

30040$ 



SET A CLEAN STACK. 
DISMISS BUS ERRORS. 
CLEAR ERROR PREFIX. 
SKir NEXT. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
,AND SKIP OVER THE ASCII. 



\ LINE CLOCK (BEVNT) INTERRUPTX 



013705 
012737 
000402 

005201 
000002 



012737 
106427 
005000 
005001 
052715 
000240 
102450 
077001 
005701 
001407 
012737 
012737 
104072 
106427 
077001 
005301 
003010 
012737 
012737 
104073 
000404 

012701 
005701 
100776 
042715 
077001 
005701 
001421 
012737 



001332 

012616 000100 



LINE CLOCK IS JUMPERED FROM CONSOLE DLART OR Q-BUS BEVNT. 
VERIFY THAT WE CAN ENABLE/DISABLE THE CLOCK ($CLK<6>). 
AND THAT INTERRUPTS OCCUR AT BR LEVEL 6. THRU VECTOR 100. 



012630 001110 
000300 



000100 



046337 044746 
045206 044752 



1$: 

10$; 



MOV 
MOV 
BR 

INC 
RTI 



$CLK,R5 
*1$. BEVNT 
10$ 

Rl 



000240 



046405 044746 
045206 044732 



177777 
000100 

046442 044746 



2$: 



MOV 
MTPS 
CLR 
CLR 
BIS 
NOP 
BVS 

soe 

TST 
BEQ 
MOV 
MOV 
ERR0R*72 
MTPS tfPRS 

soe 

DEC 
BGT 
MOV 
MOV 



ERR0R*73 
BR 44 



*.*6,$LPERR 
«PR6 
RO 
Rl 

«IT6,(R5) 
5$ 

RO.. 
Rl 
24 

«aK2.EHADR 
«NOSIG.ESADR 



RO. 
Rl 
3t 

«aK3.EMADR 
«NOSIG.ESADR 



3$; 
4$: 



MOV 
TST 
BMI 
SIC 

soe 

TST 
BEQ 
MOV 



#-l,Rl 

Rl 

.-2 

#BIT6.CR5) 

RO.. 

Rl 

6$ 

«aK4.EMA0R 



; SET VECTOR. 



! ON BEVNT. TICK Rl AND RETURN. 



; LOOP HERE ON ERROR. 

SET CPU PRI 06. 

CLEAR LOOP CONTROI 

...AND TICKER. 

TURN ON CLOCK INTERRUPT. 

ERROR IF NXM. 

DELAY ABOUT 250 MSEC, INTERRUPT... 
...SHOULD BE MASKED AT THIS LEVEL. 
BR IF SO. 

:\\ 

{ >> ERROR 72, CLOCK INTERRUPT LEVEL INCORRECT 
j// 

NOW. LOUER CPU TO PRI 5. 
DELAY AGAIN. CLOCK SHOULD COME IN... 
...AND GIVE US A FEU TICKS (MORE THAN 1). 
BR IF SO. 

J! >> ERROR 73. CLXK DIDN'T INTERRUPT 
;;// 

; SKIP OVER THE SYNC CODE. 

; NOU SYNC-UP ON THE NEXT TICK... 



...AND TURN IT OFF. 

DELAY ONCE MORE... 
...CLOCK SHOULD BE SHJT OFF. 

BR IF SO. 
!\\ 



06 
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2416 
2417 
2418 
2419 



2420 
2421 
2422 
2424 



2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 

2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 



012756 
012764 
012766 

012770 
012774 
013002 
013010 
013012 
013020 
013024 



013026 
013030 
013036 
013040 
013044 
013052 
013056 
013064 
013066 
013072 
013074 
013076 
013102 
013106 
013110 

013140 



013140 
013140 
013146 
013152 
013156 
013162 
013166 
013170 
013172 
013174 
013176 
013200 



012737 
104074 
000411 

010537 
012737 
012737 
104075 
012737 
106427 
000400 



000004 
032737 
001417 
012706 
012737 
005037 
032777 
001006 
005777 
000240 
102002 
000137 
104415 
000414 
040 



000135 
000102 
000103 
000240 
000241 

000001 
000002 
020000 



012737 
106427 
012704 
013705 
005037 
000240 
005025 
000240 
102404 
077404 
005037 



045206 044752 



001120 

046303 044746 
045230 044752 

002542 000100 
000000 



000340 177524 
001100 

177777 002426 
044742 

000400 166054 
166232 



015756 
013110 



040 



104 



5»: 



61: 



nOV «N0SIG,ESA0R 
ERR0R*74 
BR 6( 

nOV R5.«G0A0R 

MOV #aKl,EMAOR 

MOV #LA16.ESA0R 
ERROR* 75 

MOV SOISmSS. BEVNT 

MTPS #PRO 

BR TST6 



;; >> ERROR 74, 



NXM 

W 



CAN'T SHUT IT OFF 



>> ERROR 75, BUS ERROR ON CLOCK ADDRESS 
// 

RESET CLOCK VECTOR. 
LOWER CPU TO 0... 
i. ..AND FALL THRU 



{♦TEST 6 DMA FACILITY AHZ8016 

TST6: SCOPE 



30041$: 
300421: 



30043«: 



BIT 
BEQ 
MOV 
MOV 
CLR 
BIT 
BNE 
TST 
NOP 
BVC 
JMP 

T*NAME. 
BR 

.ASCIZ 
.EVEN 



«340.9«K2CSRC 

30041$ 

#STACK.SP 

#-l,TRAP4X 

EMPRE 

«eiT6,3SUR 

300421 

9$DMA 



30042$ 
TST7 
.♦4 

30043$ 

\ DMA FACILITY AMZ8016\ 



IS THE ID SWITCH IN POSITIONS 0 OR 1? 
SKIP THIS TEST IF IT IS 
^T A CLEAN STACK. 
DISMISS BUS -ERRORS. 
CLEAR ERROR PREFIX. 
FORCED ENTRY SELECTED ?? 
BR IF SO. 

CHECK FOR VALID JDMA. 

SKIP NEXT IF OK. 
BYPASS 

PRINT TEST NUMBER AND NAME... 
.AND SKIP OVER THE ASCII. 



{ AMZ8016 DMA CONTROLLER HAS 46. REGISTERS. 

: RESET THE CHIP AND VERIFY THAT ALL REGISTERS RESPOND. 



MHROEF- 135 
SSRCHl- 102 
SSRCH2- 103 
SCCCHl- 240 
SCCCH2" 241 

TC- BITO 
EOP- BITl 
IP" BIT13 



MMR default setting < block lower level hardware 
Set Software Request CH 1 
Set Software Request CH 2 
Start Chain Coamiand CH 1 
Start Chain ConMiand CH 2 

.... interrupts, not hog mode> 

TERMINAL COUNT STATUS BIT. 

END-OF -PROCESS (NXM) STATUS BIT. 

INTERRUPT POSTED (DONE) STATUS BIT. 



013146 001110 

000200 

000056 

001324 

174454 



002426 



TDMAl: 



1$: 



MOV 

MTPS 

MOV 

MOV 

CLR 

NOP 

CLR 

NOP 

BVS 

SOB 

aR 



^.♦6.$LPERR 
#PR4 
#46.. R4 
♦0MA.R5 
aOCMDR 

(R5)* 

2$ 

R4.1$ 
TRAP4X 



I LOOP HERE ON ERROR. 
RAISE TO CHIP LEVEL. 
In it R4 with number of registers 
BASE ADDRESS. 
Issue "RESET" coimwtd. .. 

J... AND aEAR ALL REGISTERS. 

V bit set by trap thru 4 routine 
Loop control 

..Tand trapper... 



E6 
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2450 
2451 
2452 



2453 
2454 
2455 
2456 
2457 
2458 
2459 

2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2475 



013204 

013206 
013212 
013220 
013226 
013230 



2476 
2477 
2478 
2479 
2460 
2481 
2482 
2483 
2484 
2485 



2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 



013234 
013234 
013242 
013246 
013252 
013254 
013256 

013264 
013272 
013276 
013304 
013310 
013316 
013324 
013330 
013330 
013334 
013340 
013344 
013350 
013354 
013360 
013364 
013370 
013374 
013376 
013402 
013406 

013410 
013416 
013424 
013426 
013430 

013434 
013440 
013442 
013446 
013450 
013454 
013456 
013462 
013464 
013472 



000413 

010537 
012737 
012737 
104076 
000137 



012737 
012700 
012701 
010021 
077002 
012737 

012737 
005037 
012737 
005037 
012737 
012737 
112700 

110037 
110037 
110037 
110037 
110037 
012704 
013703 
012437 
012700 
000230 
012337 
012337 
077001 

012737 
012737 
104077 
024646 
000137 

013700 
000402 
013700 
022626 
032700 
001022 
032700 
001010 
012737 
012737 



001120 
020042 
045222 

015742 



013242 
004000 
061022 



013434 

000115 
174446 
014042 
174444 
014042 
013746 
000061 

020107 
020140 
020175 
020226 
020257 
013772 
001412 
044742 
177777 

174454 
174454 



020413 
045206 



000214 
174456 
174454 

000001 

000002 

020451 
045206 



044746 
044752 



BR TDMA2 
2$: MOV R5.$G0A0R 

MOV «MAl,Em)R 
MOV «LA16M2.ESADR 
ERROR* 76 
JMP OMAEND 



...AND CONTINSJE. 
BAD ADDRESS (.2). 

: >> ERROR 76, BUS ERROR AT DMA CHIP ADDRESS. 
;// 

GET OUT. 



EXECUTE 5 PASS DMA DATA TEST AS Fa.LOUS: 

1. LOCAL => L0CAL*2K. 2KU. 

2. LOCAL I/O PAGE => LOCAL, IKU. 



001110 

000214 

174470 

174442 

174440 
001412 



TDMA2: 

MOV 
MOV 
MOV 

100$: MOV 
SOB 
MOV 

i SET COMMANDS 
MOV 

aR 

MOV 
CLR 
MOV 
MOV 
MOVB 



1«: 



2$: 



MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

MOV 

SPL 

MOV 

MOV 

SOB 



#.*6.*LPERR 
«2048..RO 
«BUFR1,R1 
RO.CRl)* 
R0,100$ 
«21$,S«DMAV 
FOR CHAN 1. 
*115.a#MMR 
WCHAIH 

#CHAIN1.9«CHA1L 
S4CHA2H 

«CHAIN1.8«CHA2L 

»8«.8#TSTL0C 

#'1,R0 

R0.DMAC1*5 

R0.DMAC2*5 

R0.DMAC3»5 

RO,0MAC4*5 

R0,DMAC5*5 

#CKTBL.R4 

a*TSTL0C,R3 

(R4)*.EMPRE 

♦-l.RO 

0 

CR3)*.8«CM0R 
(R3)*.9«CMDR 
RO.. 



044746 
044752 



21$: 

22$: 
30$: 



044746 
044752 



MOV MMA2.EMA0R 

MOV «fi0Sl6.ESADR 
ERR0R»77 

CMP -CSP).-CSP) 

JMP MOMAV 

MOV 8*STAT1.R0 

BR 30$ 

MOV 9#ST AT2.ro 

CMP CSP)»,(SP)* 

BIT #TC.RO 

BNE 24$ 

BIT *EOP,RO 

BNE 23$ 

MOV «)MA3.EMADR 

MOV «NOSIG.ESADR 



;; LOOP HERE ON ERROR. 
;INIT MEMORY WITH KNOWN DATA 



SERVICE CHAN 1 FIRST 

SET MASTER MODE <VI!UAIT!CPINTLV!ENAB>. 
LOCAL ACCESS 
SET CHAIN ADORESS(ES)... 
LOCAL ACCESS 
. .. » 1ST LIMC. 

POINTER TO CHANNEL 1 COMMANDS 
STUFF ASCII 1 INTO MESSAGES 



SET CHECK TABLE POINTER IN R4. 

SET ERROR PREFIX. 
KEEP- ALIVE TIMER. 
LOUER CPU. 

ISSUE SET INTERRUPT ENABLE COMMAND CHAN1(2). 
...THEN ISSUE START CHAIN CMND CHAN 1(2). 
TC (OR EOP) INTERRUPT SHOULD... 
.HAPPEN BEFORE THIS TIMES OUT. 



s 

!!\\ 

j; >> ERROR 77. CHAN INTERRUPT NOT RECEIVED 
'.// 

FAKE THE INTERRUPT... 
...AND PROCEED. 



GET CHAN 1 STATUS. 
OR 

GET CHAN 2 STATUS. 
ADJUST STACK. 

DID DMA TRANSFER COMPLETE? 
BR IF TC IS SET. 

OR DID UE HAVE AN NXM? 
BR IF EOP (NXM) IS SET. 

:\\ 

; >> ERROR 100, DMA INCOMPLETE. 



TCIEOP BOTH CLEAR. 



F6 
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2498 
2499 



2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
r527 
2523 
2529 
2530 
2531 
2532 
2533 



2534 
2535 
2536 
2537 
2536 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 



013500 
013502 
013504 
013504 
013512 
013520 
013522 



013526 
013530 
013532 
013534 
013536 
013542 



013544 
013552 
013560 
013566 
013574 
013600 
013604 
013610 
013614 
013622 
013624 
013626 
013632 
013634 
013634 
013640 
013644 
013650 
013654 
013662 
013664 
013664 
013672 
013700 
013702 
013704 

013706 
013712 
013714 
013720 
013722 
013730 
013736 
013742 
013746 
013746 
013750 



104100 
000407 

012737 020513 
012737 045206 
104101 

012337 174454 



012400 
001466 
012401 
012402 

020427 014032 
003434 



012737 
052737 
052737 
012737 
010037 
112037 
010137 
112137 
123737 
001020 
077215 
005037 
000425 

010037 
012037 
010137 
012137 
023737 
001410 

012737 
012737 
104102 
000401 
077225 

020427 
103622 
022703 
001420 
012737 
012737 
112700 
000137 

000062 
000240 



021600 
000020 
000001 
000020 
001120 
001124 
001122 
001126 
001124 



177572 



001120 
001124 
001122 
001126 
001124 



020562 
.45360 



014042 

013762 

013442 
013754 
000062 
013330 



044746 
044752 



23*: 



241: nOV 
Now check and 



ERROR'lOO 
BR 241 

nov «oriA4.EnAOR 

nOV 4N0SIG.ESA0R 
ERROR*101 



!!// 



!\\ 

; >> ERROR 101. DMA INCOMPLETE. EOP » 1 « 
;// 

INT SERVICE COMPLETE. CLEAR "lUS'IP". 



(R3)*.9«CnDR 

that the transfer occurred correctly 



3$: 



172352 
172516 
177572 
172516 



001126 



35* : 

34$: 
4$: 



001126 



044746 
044752 



33$: 

5$: 
6i: 



000214 
001412 



MOV 
BEQ 
MOV 
MOV 
CMP 
BLE 



CR4)».R0 
6i 

(R4)*.R1 
(R4)*.R2 
R4,#CKBYTE 



SET SRC POINTER. . . 
...AND BR IF DATA CHECK INHIBITED. 

GET DST POINTER... 
...AND UORO COUNT. 



check results of byte transfer fron I/O page 



MOV #21600. 8<H<IPAR5 

BIS *20.a*172516 

BIS «1.9«MMR0 

MOV #20.3*172516 

MOV RO.^GDADR 

MOVB (RO)*.*GOOAT 

MOV Rl.tBDAOR 

MOVB (R1)*.*B00AT 

CMPB «GDDAT.$BDOAT 

BNE 331 

SOB R2.35i 

CLR a«MMRO 

BR 61 

! Check results of word transfers 

MOV RO.tGDADR 

MOV CRO)*,*GDDAT 

MOV Rl.^BOAOR 

MOV (R1)*,*B00AT 

CMP $GOOAT.«BOOAT 

BEQ 51 



ENABwI 22 BIT ADDRESSES 
ON MMU 

ENABLE 22 BIT ADDRESSES. DISABLE D 
SOURCE ADDRESS 
AND DATA 

GET DESTINATION ADDRESS 
ADD DATA 

GO TO ERROR 
LOOP CONTRni 
OFF MMU 



SET SRC ADDRESS. 
..AND DATA. 
GET DST ADDRESS. 
. .AND DATA. 



SPACE 



8«; 



MOV #0MA5.EMADR 

MOV «eF6.ESADR 
ERR0R«102 

BR 61 

SOB R2.4$ 

CMP R4.«CHAIN1 

•^0 2* 

JIP #7$.R3 

BEQ 7« 

MOV #22I.0MAV 

MOV #9».8#TSTL0C 

MOVB #'2.R0 

JMP 1* 

.UORD 62 

.UORD 240 



: BR IF SRC - DST. 
;.\\ 

iS >> ERROR 102. DATA ERROR 

j;// 

; ESCAPE ON 1ST DATA ERROR. 



J CHECK FOR END OF TABLE... 
:...ANO LOOP 'TIL 6 CHAINS DONE. 
sDID UE DO BOTH CHANNELS? 

. . .AND EXIT IF BOTH DONE. 
! ELSE. SET VECTOR... 
: POINT TO CHANNEL 2 COMMANDS 
I... AND TEXT FOR CHAN 2... 
:...AND GO 'ROUND ONCE MORE. 

i SET CIE COMMAND. 

; START CHAIN COMMAND. 



G6 
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2548 013752 

2549 013754 

2550 013754 

2551 013756 

2552 013760 
2553 

2554 

2555 013762 

2556 013766 



000054 

000063 
000241 
000055 



005037 
000137 



174454 
014204 
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91: 



71: 



.UORO 54 

.UORO 63 

.UORO 241 

.UORO 55 



aR 

JMP 



OTCEXP 



CLEAR 1\JS AND IP COMMAND. 

CHANNEL .NTERRUPT ENABLE 
CHAFtCL 2 START CHAIN COMMAND 
CLEAR INTERRUPT UNDER SERVICE £ 
...INTERRUPT PENDING CHANNEL 2 

ALL DONE RESET CHIP... 



H6 
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2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2f71 

'1 

^573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
25% 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
260S 
2606 
260.' 
2608 



013772 
014002 
014012 
014016 
014022 



020102 
020133 
020170 
020221 
020252 



061022 
177750 
000000 
000000 
061022 



014032 020102 120000 



014042 
014044 
014050 
014054 
014056 
014060 



014064 
014066 
014072 
014076 
014100 

014104 
014106 
014112 
014116 
014120 

014124 
014126 
014132 
014136 
014140 

014144 
014146 
014152 
014156 
014160 

014164 
014166 
014172 
C14176 
vt4200 



001606 
000000 
000000 
004000 
000214 
000030 



001602 
040000 
000000 
000001 
000030 

001602 
000000 
100000 
004000 
000030 

001602 
100000 
100000 
004000 
000030 

001602 
100000 
000000 

(.K 4 .>00 

000030 

001602 
004000 
000000 
010000 
000030 



061022 
071022 



001340 



177^5") 
071022 

001340 



061022 
071022 

001340 



071022 
061022 

0^ 



061022 
071022 

001340 



160000 
071022 

001301 



071022 
071022 



071022 
071022 



AOORESS/UC TABLE FOR POST DMA DATA CHECKS. 



CKTBL: DMACl. BUFRl. BUFR2. 2048. 
Dt1AC2. 177750. BUFR2. 1 
DMAC3. 0 
Df1AC4. 0 

0f1AC5. BUFRl. BUFR2 , 2048. 
CKBYTE: DMACl. 120000. BUFR2, 4096. 
AND THIS IS THE 5 LINK DMA CHAIN. 



TEXT. SRC. DST. WC. 

CHAINS 3. 4. .. 
...INVOLVE Q-BUS SPACE... 
...POSTPONE DATA CHECK UNTIL. 
...CHAIN 5 IS DONE. 
CHECK BYTE TRANSFER 



CHAINl: 



CHAIN2: 



CHAIN3: 



CHAIN4: 



CHAINS: 



1606 

0. BUFRl 
0. BUFR2 
2048. 
DMAV 

30. 1340 



1602 

40000.177750 
0. BUFR2 
1 

30. 1340 
1602 

0, BUFRl 
100000. BUFR2 
2048. 
30, 1340 

1602 

100000, BUFR2 
100000, BUFRl 
2048. 
30, 1340 

1602 

100000, BUFRl 
0, 8UFR2 
2048. 
30, 1340 



LOAD ARA. ARB, OPK, VECT. AND CHAN MODE. 

FROM LOCAL BUFRl... 
...TO LOCAL BUFR2 
...2K UORDS. 

VECTOR 

SFTREQ! HDMSK, INT TC.'EOP, INTLV. UORD-UORD. 
...FLOUTHROUGH 

RE-LOAO ARA. ARB. OPK. AND CHAN MODE ONLY. 
FROM LOCAL I/O CK2 MAINTENANCE REGISTER) 
...TO BUFR2... 
1 UORD 

!!!SAME MODE AND TERMINATION. 

DITTO. 
FROM LOCAL BUFRl. . . 
. . .TO Q-BUS BUFR2 
...2K WORDS. 

DITTO. 

DITTO. 
FROM Q-BUS BUFR2 
. . .TO Q-BUS BUFRl 
...2K UOROS. 

DITTO. 

DITTO. 
FROM Q-BUS BUFRl 
...TO LOCAL BUFR2 
...2K UOROS. 

DITTO. 



CHAIN6: < CARA iCARB! COP! MODE > 

<KOMEM ! 4000 ! UP >, 160000 
<K2MFM!UP>.BUFR2 
4096. 



FROM K2 ROM 
TO BUFFER 2 
4 KB 



< SURQ ! HM> , < ITC ! lEOP ! BUSREL ! TRBB > 



INTERRUPT ON TC OR EOP... 

! BUS RELEASE, BYTE-BYTE TRANSFER 



16 
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2610 014204 








^>'JEXP 


: :NOU TEST THAT THE DTC 


2611 014204 


012737 


014400 


000214 




MOV 


*21*.a#0MAV 


2612 








i SET 


COrtfANDS 


FOR CHAN 1. 


2613 014212 


012737 


000115 


174470 




MOV 


*115,a#MMR 


2614 014220 


005037 


174446 






aR 


9«CHA1H 


2615 014224 


012737 


014754 


174442 




MOV 


flOTCXOl.atfCHAlL 


2616 014232 


005037 


174444 






aR 


3«CHA2H 


2617 014236 


012737 


014754 


174440 




MOV 


«TCX01,8#CHA2L 


2618 014244 


012737 


014624 


001412 




MOV 


#8$.a*TSTL0C 


2619 014252 


012737 


014640 


001414 




MOV 


#10$.a*TSTLOC*2 


2620 014260 


012700 


000061 






MOV 


#'1.R0 


2621 014264 








1(: 






2623 014264 


110037 


015221 






MOVB 


RO.DTCXMl+5 


014270 


110037 


015271 






MOVB 


R0.DTCXM2*5 


014274 


1100?; 


015341 






MOVB 


R0,DTCXM3*5 


014300 


110037 


015410 






MOVB 


R0.DTCXM4*5 


014304 


110037 


015457 






MOVB 


R0.DTCXM8*5 


014310 


110037 


015537 






WVB 


R0.DTCXM9*5 


2^-"! 014314 


012704 


014654 






MOV 


*E0PT2L,R4 


1625 014320 


013703 


001412 




2$: 


MOV 


e»TSTL0C.R3 


2626 014324 


013702 


001414 






Mnv 




96?7 014330 


01P437 


044742 






MOV 


(R4)*,EMPRE 


2628 014334 


012700 


mm 






MOV 


#-l,R0 


2629 014340 


000230 








SPL 


0 


2630 014342 


012337 


174454 






MOV 


CR3)*,8#CMDR 


2631 014346 


012337 


174454 






MOV 


(R3)«.S«CMDR 


2632 014352 


077001 








SOB 


RO.. 


2633 

2634 ^14354 


012737 


020413 


044746 




MOV 


«0MA2,EMA0R 


014362 


012737 


045206 


044752 




MOV 


«NOSIG.ESAOR 


014370 


104103 








ERR0R*103 


2635 014372 


024646 








CMP 


-(SP).-CSP) 


2636 014374 


000137 


000214 






JMP 


a«onAv 


2637 014400 


013700 


174456 




21$: 


MOV 


8tSTATl.R0 


2638 014404 


000402 








BR 


30$ 


2639 014406 


013700 


174454 




22$: 


MOV 


»#STAT?,RO 


2640 014412 


022626 






301: 


CMP 


(SP)*.(SP)» 


2641 014414 


032700 


000002 






BIT 


«EOP.RO 


2642 014420 


001010 








BNE 


23$ 


2643 014422 


012737 


015612 


044746 




MOV 


#0TC»15.EHA0R 


014430 


012737 


045206 


044752 




MOV 


iNOSIG.ESAOR 


014436 


104104 








ERR0R*104 


2644 014440 


000412 








BR 


?4$ 


2645 014442 


032700 


000001 




23$; 


BIT 


L.hO 


2646 014446 


001407 








BEQ 




2647 014450 


012737 


015612 


044746 




MOV 


iOTCXMS.EMAOR 


014456 


012737 


045206 


044752 




MOV 


ffNOSIG.ESAOR 


014464 


104105 








ERRORS 105 


2648 014466 


012337 


174454 




24*: 


MOV 


(R3)*.8«CMDR 


2649 014472 


012437 


001120 






MOV 


CR4)«.$G0A0R 


2650 014476 


001424 








BEQ 


25$ 


2651 014500 


012437 


001122 






MOV 


(R4)«.$BDA0R 


2652 014504 


012437 


001124 






MOV 


(R4)».$G00AT 


2653 014510 


023237 


001120 






CMP 


a(R2)«.$G0ADR 


2654 014514 


001006 








BNE 


26$ 


2655 014516 


023237 


001122 






CMP 


a(R2)*.$BDADR 


2656 014522 


001003 








BNE 


26$ 
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:XCEPTIONS WORK CORRECTLY 
: SERVICE CHAN 1 FIRST 

: SET MASTER MODE <VI!UAIT!CPINTLV!ENAB> . 

SET CHAIN ADORESS(ES). . . 
LOCAL ACCESS 
... = 1ST LINK. 

POINTER TO CHANNEL 1 COMMANDS 
POINTER TO CHANNEL 1 REGISTERS 



: SET CHECK TABLE POINTER IN R4. 

; LOAD COMMAND POINTER 

s LOAD REGISTER POINTER 

: SET ERROR PREFIX. 

; KEEP -ALIVE TIMER. 

; LOUER CPU. 

; ISSUE SET INTERRUPT ENABLE COMMAND CHAN1(2). 
;...THFN ISSUE START CHAIN CMTC CHAN 1(2). 
; ECP INTERRUPT SHOULD... 

HAPPEN BEFORE THIS TIMES OUT. 

;;\\ 

>> ERROR 103, CHAN INTERRUPT NOT RECEIVED 
;;// 

; FAKE THE INTERRUPT . . . 
.-...AND PROCEED. 
; GET CHAN 1 STATUS. 
; OR 

i GET CHAN 2 STATUS. 

; ADJUST STACK. 

: DID UE HAVE AN NXM7 

: BR IF EOP (NXM) IS SET. 

!;\\ 

» ERROR 104. EXPECTED NXM. EOP CLEAR. 
;:// 

: DID DMA TRANSFER COMPLETE? 
: BR IF TC IS NOT SET. 
;;\\ 

:s >> ERROR 105. TC SHOULD NOT BE SET 
;;// 

5 INT SERVICE COMPLETE. CLEAR "lUS'IP". 
; IS THERE DATA TO CHECK? 



;IS OFFSET REGISTER AS EXPECTED? 

!lS B ADOREsi CTFjET REGISTER AS EXPECTED? 
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^657 
2658 
2659 



2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 

>-?»: 

o > 

2690 
2691 
2692 
2693 
2694 
2695 
26% 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 



014524 
014530 
014532 
014532 
014540 
014546 
014550 
014554 
014556 
014562 
014564 
014570 
014574 
014602 
014610 
014616 
014622 

014624 
014624 
014626 
014630 
014632 
014632 
014634 
014636 

014640 
014640 
014642 
014644 
014646 
014646 
014650 
014652 

014654 
014660 
014664 

014670 
014674 
014704 
014714 
014724 
014734 
014744 

014754 



014754 

014756 
014762 
014766 
014770 
014774 
015000 



023237 
0C14O7 

012737 
012737 
104106 
0?04?7 

022 7u3 
001004 
005037 
000137 
012737 
012737 
012737 
012700 
000620 



000062 
000240 
000054 

000063 
000241 
000055 



174412 
174402 
174462 

174410 
174400 
174460 

015214 
015264 
015334 
015403 
015214 
015264 
015334 
015403 
015452 
015532 



001124 



015700 
045206 

014754 

014640 

1^4454 
015742 
014632 
014646 
014406 
000062 



000000 
000000 
000000 
000000 
061024 
061024 
061024 
061024 
061024 
061024 



001762 

000000 061022 
037420 170000 
000004 

000000 061022 
037420 170000 
000004 



044746 
044752 



001412 
001414 
000214 



26«: 
25$: 

27*: 

8$: 
9*: 

10$: 
11$: 



CMP aCR2)*.$G00AT 
BEQ 25$ 



jIS OP COUNT AS EXPECTED? 



MOV 0OTCXM7.EMADR ;!\\ 

MOV ««SIG.ESAOR » 
ERROR* 106 ;:// 

CMP R4.«0TCX01 ! 

BLT 2$ 

CMP #10$. R3 

B^E 27$ 

CLR 3«CMDR 

JMP DMAEND 

MOV *9$,a#TSTL0C 

MOV #ll$.a*TSTL0C*2 

MOV *22$.a#0MAV 

MOV #'2.R0 

BR 1$ 



ERROR 106. CONTENTS OF DTC NOT CORRECT AFTER EOP 



;HAVE BOTH CHANNELS BEEN TESTED? 
! RESET CHIP 



:L0AO CHAhfCL 2 
:LOAD CHANNEL. 2 
:LOAD CHANNEL 2 



COMMAND POINTER 
REGISTER POINTER 
INTERRUPT HANDLER 



; CHANNEL 1 COMMANDS 
.UORD 62 : 
.WORD 240 : 
.UORD 54 
{CHANNEL 2 COMMANDS 
.WORD 63 : 
.WORD 241 ; 
.WORD 55 ! 

; CHANNEL 1 DTC REGISTERS* 

.WORD 174412 jDTC CHANNEL 

.WORD 174402 sDTC CHANNEL 

.UORD 174462 ;DTC CHANNEL 

{CHANNEL 2 DTC REGISTERS 

.UORD 174410 sDTC CHAM€L 

.UORD 174400 :DTC CHANNEL 

.UORD 174460 jDTC CHANNEL 



SEl CIE COMMAND. 
START CHAIN COMMAND. 
CLEAR lUS AND IP CWtlAND. 

CHANNEL 2 T»JTFRRUPT ENABLE 
CHANNEL 2 ST^r^i CHAIN COMMAND 
CLEAR INTERRUPT UNDER SERVICE 6 
...INTERRUPT PENDING CHANNEL 2 



1 CURRENT ADDRESS REG A 
1 CURRENT ADDRESS REG B 

1 CURRENT OP COUNT 

2 CURRENT ADDRESS REG A 
2 CURRENT ADDRESS REG B 
2 CURRENT OP COUNT 



170002 
170002 
177572 
177572 
177572 
177572 



EOPTBL: DTCXMl. 

DTCXM2, 
0TCXM3. 
DTCXm. 
DTCXMl, 
DTCXM2. 
DTCXM3. 
0TCXM4, 
DTCXH8. 
DTCXM9. 



0 
0 
0 
0 

BUFR1*2. 
BUFR1*2. 
BUFR1»2. 
BUFR1*2, 
BUFR1*2. 
BUFR1»2, 



170002. 3 

170002. 3 

177572. 3 

177572. 3 

177572. 3 

177572. 3 



OTCXOl: 



Thi« transaction Mill try to transfer to a non-existant local 
meJBory location. Expecting an EOP. Check that the Cham Abort and 
the No Auto-Reload or Cham bits are set. 
i CARA ! CARB !BARA! BARB! COP! BOP 'njCE> {Chain reload Mord 



O.BUFRl 
37420.170000 
4 

O.BUFRl 

37420.170000 

4 



Current Adordcs Register A (dm source) 
Current Address Register B (dns destination-- hold) 
Current op -count 
Base Address Register A 
Base Address Register B 
Base op-count 



K6 



KXJll-CA FUNCTIONAL TEST 

T6 DMA FACILITY AMZ8016 



2711 01SX)2 


000030 


003340 


2712 






2713 






2714 






2'l3 OItOOO 


000002 




2716 015010 


000030 


001360 


2/1/ 






2r lo 






2719 






2'2v 015014 






2 '21 






2722 015014 


001 ro2 




070T mc/M& 
CI CO 01501O 


1 1 i^ev 


1 7757ft 
If I^IV 


2/24 015022 


OOOOOO 


ft&l ftOO 

0D1022 


cieO 0150^0 


ftftftftftA 
000004 




c'cO 0130dU 


1 77A3ft 
X 1 1 4cU 


1 7757ft 


3737 

CI CI 015V54 


ftftftftftft 
OOOOOO 


ftfcl ft33 


CI CO 013V4U 


ftftftftftA 




CI erf vl304e 


0U003V/ 


ftftTTAft 
00334U 




















CI 33 U13U40 






CIO'* 


ftftftftTft 


ftfti TAft 














37 T7 












c 1 37 Ul JvD4 


vvlOvc 




37Art rtl 
Ci'*\I UIjUjP 


ftftftftftft 


ftAI ft33 


37A1 ni ■n/V%3 
C'Hl U13vOc 


ftT7Aftft 


1 7ftftftft 
1 l\AJW 




ftftftftftA 






ftftftftTft 


ftfti XAft 
Uvl J'tv 










ftfti Aft3 




37AA rt15ft7A 


ftftftftftft 


ftAI f\oo 


01 Al M'^\C\0 
Cl^i UlJlvc 


ftT7Aftft 
\J3 1 "nAJ 


1 7ftftftft 
1 f WW 




ftftftftftA 
VAWAA/4 




3741 0151 in 


ftftftftVk 
WW3U 


ftfti Xftft 


375ft 






3751 ftl 51 1 A 


ftfti <^ft3 




3753 ftl 511 A 


ftftftftftft 


ftill ft33 


3757 ftl 51 33 


1 77Aftft 


1 7757ft 
If iD f V 


375A ft1513& 


ftftftftftA 




3755 ft151Xft 


ftftftftVk 
\AJW3V 


ftfti TAft 


375#» 






3757 ft151T4 
Cf9r U19104 


ftfti &ft3 




375A ft151V& 


ftftftftftft 


ftfti ft33 
ODlOee 


3750 ni511.9 


1 77Aftft 
1 1 f400 


1 7757ft 


376ft ft1514& 
C'DU U13140 


ftftftftftA 
000004 




37&1 ni515ft 


ftftftftTA 
OOOOdO 


ftfti Xtif\ 
001 3O0 


2762 






2763 015154 


001602 




2764 015156 


OOOOOO 


061022 


2765 015162 


177400 


177570 


2766 015166 


000004 




2767 015170 


000030 


001350 
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30.3340 :Channel node register 

; This transaction Mill try to transfer from a non-ex istant local 

: ncMory location. 

2 :Chain reload word 

30,1360 :<SUR!Hn>.<RELEOP!lTC!lEOP!t-LlP>:Channcl mode register 

Try some transfers to the Qbus 

CHNQIO: : This transaction will try to transfer from a non-ex istant Q bus 
; I/O location. 

< CARA ! CARB ! BARA! BARB! COP! BOP! MODE > :Chain reload Mord 

177420.177570 ; Current Address Register A (dma source-- hold) 
O.BUFRl .-Current Address Register B (dma destination) 

4 ; Current op -count 

177420,177570 ;Base Address Register A (dma source-- hold) 
O.BUFRl :Base Address Register B 

4 ;Base op-count 

30,3340 ; Channel mode register 

; This transaction will try to transfer to a non -ex istant Q bus 
; I/O location. 

2 ; Chain reload word 

30.1360 {Channel mode register 

s CHECK THE CONTENTS OF THE CURRENT ADDRESS REGISTERS AND OP COUNT AFTER 
sA TRANSFER THAT RESULTS IN A TIf€-0UT 

< CARA! CARS !C(P! MODE > ; Chain reload word 
O.BUFRl ; Current Address Register A (dma source) 

37400,170000 ; Current Address Register B (dma destination-- hold) 
4 {Current op-count 

<SURQ!Ht1>.<ITC!lE0P!TRUU!INTLV> ;che-o«l mode register 

< CARA !CARB! COP! MODE > : Chain reload word 
O.BUFRl {Current Address Register A (dma source) 

37400,170000 {Current Address Register B (dma destination-- hold) 
4 {Current op-count 

<SURQ!hl1>.<ITC!IE0P!TRUU!lNTLV!FLIP> {Chwmel mode register 

<CARA! CARS! COP !t100E> {Chain reload Nord 
O.BUFRl {Current address register a 

<QBUSI0!374OO>. 177570 {Current address register b 
4 (Current operation count 

<SURQ!hl1>.<ITC!IE0P!TRWU!lNTLV> {channel mode register 

<CARA! CARS! COP !HODE> :Cha!n reload word 
O.BUFRl {Current address register a 

<QBUSI0!37400>. 177570 (Current address register b 
4 (Current operation count 

<SURQ!H1>.<ITC!IE0P!TRUU!INTLV!FLIP> (Channel mode register 

<CARA!CAR6!C0P!n0DE> (Chain reload word 
O.BUFRl { 
<QBUSI0!374OO>. 177570 ( 
4 

< SURQ ! HM> , < ITC ! lEOP ! TRFUNL ! INTL V > 



KXJll CA FUNCTIONAL TEST 

T6 DMA FACILITY AMZ801' 



276a 
2769 
2770 
2771 
2772 
277? 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 



015174 
015176 
015202 
015206 
015210 

015214 
015264 
015334 
015403 
015452 
015532 
015612 
015651 
015700 

015742 
015750 
015754 



001602 
000000 
177400 
000004 
000030 

103 
103 
103 
103 
103 
103 
040 
040 
103 



061022 
177570 

001370 

110 
110 
110 
110 
110 
110 
105 
105 
117 



012737 002542 
005037 174454 
000400 
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< CARA! CARS! COP! MODE > sChain reload word 
0.8UFR1 

< QBUSIO • 37400> . 177570 
4 

<SURQ!HM>.<ITC!lEOP!TRFUNL!INTLV:f.i * 



101 
101 
101 
101 
101 
101 
130 
130 
- 116 

000214 



DTCXMl 

DTCXM2 

DTCXM3 

DTCXM4 

DTCXM8 

DTCXM9 

DTCXM5 

DTCXM6 

DTCXM7 

.EVEN 

DMAEND 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 

MOV 
CLR 
BR 



/CHAN X DMA XFER LOCAL MEM «> LOCAL NXM/<CRLF> 
/CHAN X DMA XFER LOCAL NXM »> LOCAL MEM/<CRLF> 
/CHAN X DMA XFER LOCAL MEM -> QBUS NXM/<CRLF> 
/CHAN X DMA XFER QBUS NXM -> LOCAL MEM/<CRLF> 
/CHAN X DMA FUNNEL XFER - LOCAL MEM QBUS NXM/<CRLF 
/CHAN X DMA FUNNEL XFER - QBUS NXM => LOCAL MEM/<CRLF 
/ EXPECTED EOP ON DMA TRANSFER/ <CRLF> 
/ EXPECTED CHAIN AB0RT/<CRLF> 
/CONTENTS OF DTC WT AS EXPECTED/ <CRLF> 



*DISMISS.0MAV 

3«CM0R 

TST7 



; RESTORE VECTOR. 
! RESET DTC CHIP 
jsNEXl TEST. 



M6 



KXJll-CA FUNCTIONAL TEST 
T7 0 BUS INTERFACE 

2789 
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;*TEST 7 0 BUS INTERFACE 





015756 


000004 






015760 


032737 


000340 




UlJ 'DO 








015770 


012706 


001100 




015774 


012737 


177777 




016002 


005037 


044742 




016006 


000402 






016010 


000137 


022134 




016014 


104415 


016022 




016020 


000411 






016022 


040 


040 




016044 






2790 








2791 








2792 








2793 








2794 








2795 








27% 








2797 








2798 








2799 


016044 


013701 


177522 


2800 


016050 


032701 


000004 


2801 


016054 


001415 




2802 








2803 


016056 


032701 


000002 


2804 


016062 


001405 




2805 








2806 


016064 






2807 








2808 


016064 


012704 


000026 


2809 


016070 


012703 


000006 


2810 


016074 


000416 




2811 


016076 






2812 








2813 


016076 


012704 


000022 


2814 


016102 


012703 


000002 


2815 


016106 


000411 




2816 


016110 






2817 


016110 


032701 


000002 


2818 


016114 


001763 




2819 








2820 








2821 


016116 


C12704 


000020 


2822 


016122 


020437 


050736 


2823 


016126 


001413 




2824 


016130 


000403 




2625 


016132 


020437 


050736 


2626 


C16136 


001411 




262? 


Ci6140 








016140 


012737 


016604 




016146 


012737 


016536 




016154 


104107 





177524 



002426 



TST7: 



121 



30044$: 
30045$: 



30046$; 



SCOPE 
BIT 
BEQ 
MOV 
»10V 
CLR 
BR 
JHP 

T$NAME. 
BR 

.ASCIZ 
.EVEN 



434O.90K2CSRC 
30044* 

#STACK.SP 
# 1.TRAP4X 
EMFRE 
30045$ 
TSTIO 
.♦4 

30046* 
\ Q-BUS INTERFACE\ 



IS THE ID SUITCH IN POSITIONS 0 OR 1? 
SKIP THIS TEST IF IT IS 
SET A CLEAN STACK. 
DISMISS BUS -ERRORS. 
aEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS 

PRINT TEST NUMBER AND NAME... 
.AND SKIP OVER THE ASCII. 



TEST THE UPPER ADDRESS BITS 16 THRU 21 ON THE QBUS INTERFACE. 
FIRST WRITE TSTLOC IN QBUS ^tMORY WITH ALL ONES. THEN ATTEMPT TO 
WRITE ZEROS TO TSTLOC IN QBUS MEMORY. BUT THIS TIME WITH ONE OF 
THE AMWESS BITS 16 THRU 21 SET, IF TSTLOC IS CLEAR AS A RESULT 
OF THIS URITE THEN THE ADDRESS BIT DID NOT GET WRITTEN ONTO THE BUS. 

FIRST LET'S MAKE SURE THAT WE HAVE MORE THAN 16 QBUS ADDRESS BITS. 

{GET BUS SIZE BITS IN K2CSRB 
; IS BIT 02 « 1 
: NO, BRANCH 

IS -1 

s IS BIT 01-1 
: NO. BRANCH 



MOV 


3«K2CSRB,R1 


BIT 


«IT02.R1 


BEQ 


104* 


; COMES 


HERE IF BIT 


BIT 


«IT01.R1 


BEQ 


102* 



105*: 



102*: 



104*; 



COMES HERE IF BIT 02 =1 AND BIT 01 -1. OR IF BIT 01 -0 AND BIT 02 
INDICATES A 22 BIT JUMPER CONFIGURATION. 
MOV *22.,R4 5 THEN IT'S A 22 BITTER 

MOV #6.R3 ;INIT LOOP COUNTER 

EIR 1061 

sCOHES HERE IF BIT 01 » 0 AND BIT 02 - 1. 
.-INDICATES AN 18 BIT JUMPER CONFIGURATION. 



MOV 
MOV 
BR 



#18.. R4 
*2.R3 
106* 



;INIT LOOP COUNTER 



jCOKES HERE IF BIT 02-0 
BIT «eiT01,Rl ; IS BIT 01 

BEQ 105* i NO. BRANCH 

sCOMES HERE IF BIT 01 - 1. BIT 02 • 0. 
{INDICATES A 16 BIT JUMPER CONFIGURATION 
MOV #16.. R4 



044746 
044752 



106*: 
103*: 



CMP 
BEQ 
BR 

CMP 
BEQ 



R4..ABUSW 
100* 
103* 

R4..ABUSU 
101* 



DOES IT MATCH WHAT ARBITER SAYS? 

16 BIT BACKPLANE. 
NO. FLAG ERROR 

DOES THIS HATCH WHAT ARBITER SAYS? 



MOV #CNFGER.EMAOR 
MOV #CNFG01,ESADR 
ERR0R«107 



» ERROR 107, NUMBER OF ADDRESS BITS COfFIOWEO URONG 



N6 

KXJll-CA FUNCTIONAL TEST 
17 Q-BOS INTERFACE 
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2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2846 

2849 

2850 

2651 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 



2865 
2866 
2867 
2868 
2869 
2870 
2871 



2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 



016156 
016162 
016166 
016174 
016200 
016204 
016210 
016214 
016220 
016226 
016232 
016240 
016246 
016254 
016260 
016;>64 
016270 
016274 
016302 
016310 
016316 
016324 
01o332 
016340 
016346 
016352 
016360 
016366 



000137 


017106 




100* : 


Jtf> 


FIN22 


012704 


000020 




101*: 


MOV 


«16. .R4 


012737 


177777 


001412 




MOV 


#-l.a#TSTLX 


005037 


001414 






CLR 


a*TSTL0C»2 


005037 


001416 






CLR 


a*TSTL0C»4 


012702 


000400 






MOV 


M00.R2 


050237 


017044 






BIS 


R2.A01621*6 


005037 


174454 






CLR 




012737 


000111 


174470 




MOV 


*lll.a#MMR 


005037 


174444 






CLR 


3«CHA2H 


012737 


017016 


174440 




MOV 


#INIT0.a#CHA2L 


012737 


000061 


174454 




MOV 


#CLIE2.a*CrC)R 


012737 


000241 


174454 




MOV 


*SCCCH2,a*CMDR 


013746 


000220 






MOV 


a*0MAV2.-(SP) 


013746 


000222 






MOV 


a«)MAV2*2.-CSP) 


013746 


000214 






MOV 


aSDMAVl. (SP) 


013746 


000216 






MOV 


8«0MAV1*2. CSP) 


012737 


016420 


000220 




MOV 


*10$.a#0MAV2 


012737 


000340 


000222 




MOV 


«>R7.a*0MAV2*2 


012737 


016370 


000214 




MOV 


#21*.a«)MAVl 


012737 


000340 


000216 




MOV 


«PR7.a«)MAVl*2 


012737 


017036 


174440 




MOV 


MD1621.90CHA2L 


012737 


000063 


174454 




MOV 


#SETIE2.a#CMDR 


042737 


000040 


177540 




BIC 


«BIT05,a#K2CSRJ 


106427 


000000 






MTPS 


00 


012737 


000241 


17445^ 




MOV 


«SCCCH2.3«CMDR 


012737 


000103 


174454 




MOV 


«SSRCH2.S«CnDR 


000001 








WAIT 





INIT R4 UITH FIRST BIT TO BE TESTED 

MAKE TSTLOC « -1 

MAKE TSTL0C»2 » 0 

MAKE TSTL0C*4 >= 0 

INIT R2 UITH ADDRESS BIT 16 «1 

LOAD SEGMENT FIELD OF CHAIN 

RESET DTC CHIP 

ENABLE DTC. NO CPU INTERLEAVr 

LOAD CHAIN ADDRESS 
DON'T ALLOU INTERRUPT FROM DTC 
ISSUE START CHAIN COMMAND CH2 
SAVE VECTORS 



SETUP INTERRUPT HANDLER FOR DMA 



LOAD CHAIN ADDRESS 
ENABLE CH2 INTERRUPT 
CLEAR SACK TIME-OUT BIT 
SET PRIORITY LEVEL TO ZERO 
ISSUE START CHAIN COMMAND CH2 
ISSUE SET SOFTWARE REQL€ST COMMAND 
WAIT FOR INTERRUPT 



} COMES HERE AFTER TRANFER FROM QBUS MEMORY TO TSTLOC M 



016370 022737 177777 001414 21$: 



016376 
016400 
016406 
016414 
016416 



016420 
016426 
016430 
016436 
016444 



016446 
016450 
016454 
016460 
016462 
016464 



001423 
012737 
012737 
104110 
000413 



032737 
001007 
012737 
012737 
104111 



022626 
005037 
040237 
005204 
006302 
050237 



016654 
016572 



044746 
044752 



CMP #-l.a#TSTL0C*2 



BEQ 25$ 
MOV MADBIT.EMAOR 
MOV MADBAL.ESAOR 
ERROR^llO 
BR 25* 



J >> 



IS K2 TSTL0C*2 » -1? IT SHOULD BE. 
IF NOT THEN EITHER THE ADDRESS 
BIT IS BAD OR THE BACKPLANE DOES 
NOT SUPPORT 22 BIT ADDRESSES. 
BRANCH IF OK 

ERROR 110, ONE OF THE UPPER ADDRESS BITS 16-21 IS BAD 
iBAIL OUT 



.•COMES HERE IF EOP CNXM) XCURS ON TRANFER TO Q BUS MEMORY 
000002 174454 io*: 



017004 
045206 



001414 
017044 



017044 



044746 
044752 



BIT #61101. 8#STAT2 
BNE 25* 
MOV 400PS.EMADR 
MOV «NOSIG.ESAOR 
ERR0R«111 



;DID EOP OCCUR? 
{ERROR IF NO EOP 



» ERROR 111, SHOULD ONLY COME HERE ON EOP 
;// 



SET UP FOR NEXT ADDRESS BIT IF ANY 
25*: 



CMP 
CLR 
BIC 
INC 
ASL 
BIS 



(SP)*.(SP)» 
8#TSTL0C*2 
R2.AD1621^6 
R4 
R2 

R2.A01621*6 



J FAKE AN RTI AND FIX THE STACK 
;aEAR TSTL0C*2 

CLEAN UP 

ADD 1 TO R4 

LOAD SEGMENT FIELD 



KXJll-CA FUNCTIONAL TEST 
T7 Q-BUS INTERFACE 
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2681 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
28% 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2926 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 



016470 012737 000055 174454 



016476 077360 



MOV 
SOB 



•CLIP2.a«0«R 
R3.5» 



016500 
016504 
016510 
016514 
016520 
016526 
016532 



017016 
017016 
017020 
017024 
017030 
017032 

017036 
017036 
017040 
017044 
017046 
017050 
017052 
017054 



012C37 
012637 
012637 
012637 
042737 
005037 
000137 



000216 26« : MOV 

000214 MOV 

000222 MOV 

000220 MOV 

077757 017044 BIC 

174454 CLR 

017106 JMP 



: ISSUE CLEAR INTERRUPT COMMAND 

DO IT SIX TIMES FOR 22 BITS. TWICE FOR 
..EIGHTEEN. 
RESTORE THE VECTORS 



(SP)».0«AV1*2 
(SP)*.DMAV1 
(SP)*.DMAV2*2 
(SP)*.0MAV2 

*tC<QBMEM!H0LD>.AD1621*6 ;CLEAN UP 

30CMDR : RESET DTC CHIP 

FIN22 ;SKIP OVER CHAIN TABLES 



ERROR ROUTINES 



vlO jOO 










nwv 


R4.-(SP) 


PUSH NUMBER OF ADDRESS BITS KXJ IS JUMPERED FOR 






wXO r CO 






TYPF 


.JMPSAY 


TYPE MESSAGE 


016544 


104405 








TYPDS 




TYPE DECIMAL NUMBER 


016546 


104401 


016760 






TYPE 


.ADRBIT 




016552 


013746 


050736 






MOV 


.ABUSU.-(SP) 


PUSH NUMBER OF ADDRESS BITS ARBITER SUPPORTS 


016556 


104401 


016703 






TYPE 


.AR6SUP 


TYPE MESSAGE 


016562 


104405 








TYPDS 




.TYPE DECIMAL NUMBER 


016564 


104401 


016760 






TYPE 


.ADRBIT 




016570 


000207 








RTS 


PC 




016572 


010446 






BA06AL: 


MOV 


R4.-(SP) 


PUSH mi5ER OF BAD ADDRESS BIT 


016574 


104401 


016776 






TYPE 


.BIT 


TYPE MESSAGE 


016600 


104405 








TYPDS 




[TYPE DECIMAL NUMBER 


016602 


000207 








RTS 


PC 












i ERROR 


MESSAGES 






016604 


116 


125 


115 


CNFGER: 


.ASCIZ 


/NUMBER OF ADDRESS BITS CONFIGURED WRONG/ 


016654 


102 


101 


104 


BA06IT: 


.ASCIZ 


/BAD Q-BUS ADDRESS LINE/ 


016703 


200 


101 


122 


AR6SUP: 


.ASCIZ 


<CRLF>/ARBITER SUPPORTS / 


016726 


200 


113 


130 


JMPSAY: 


.ASCIZ 


<CRLF>/KXJ11-CA CONFIGURED FOR / 


016760 


040 


101 


104 


ADRBIT: 


.ASCIZ 


/ ADDRESS BITS/ 




016776 


040 


102 


111 


BIT: 


.ASCIZ 


/ BIT / 




017004 


104 


124 


103 


OOPS: 


.ASCIZ 


/OTC ERROR/ 





001602 
000020 
100020 
000001 
000030 



001606 
000020 
100020 
001412 
000002 
000220 
000010 



.EVEN 

DMA CHAIN TABLES FOR TESTING ADDRESS BITS 16-21 
INITO: .-URITE Q BUS MEMORY LOCATION UITH -1 



001412 
001412 

000040 
001416 

100240 



< CARA !CARB: COP! MODE > 
<K2MEM!H0LD>.TSTL0C 
<QBMEM!HOLD>.TSTLOC 
1 

<SURQ!Hn>.<TRUU!BUSHOG> tMOOE 



CHAIN RELOAD UORD 
CARA (SOURCE) 
CARB (BEST) 
COP 



AD1621: 



:CARA (SOURCE) URITE 0 



; CHAIN TO START TEST OF QBUS BITS 16 THRU 21 

< CARA "CARS! COP! IV !MOOE> ; CHAIN RELOAD WORD 
<K2MEM!H0LD>,TSTL0C*4 
<QBMEM!HOLD> 

.WORD TSTLX sCARB (DEST) 

2 ;COP 

DMAV2 ;IV 



< HH> , < lEOP ! CTC ! TRUW ! BUSHOG> 



iMOOE— NEEDS SOFTWARE REQ TO GO 



C7 



KXJll-CA FUNCTIONAL TEST 
T7 Q-BUS INTERFACE 



2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 



017060 
017060 
017062 
017066 
017072 
017074 
017076 
017102 

017106 



001607 

100020 001412 
000020 001414 
000001 
000214 

000030 001040 
000000 017036 
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REAOO: :READ ADDRESS TSTLOC IN (BUS MEMORY 



< CARA • C/WB • COP ! IV ! MODE ! CHAD > 



<QBMEM!HOLD>. TSTLOC 
<K2MEH ! HOLD >. TSTLOC ♦ 2 
1 

OMAVl 



<S«RQ!W> . <ITC»TRUU!BUSHOG> 



CARA 
CARB 

COP 
IV 



0.A01621 



i CHAIN ADDRESS 



{CHAIN RELOAD WORD 

(SOURCE) 

(DEST) 



:MODE 



FIN22: 



D 



KXJll-CA FUNCTIONAL TEST 
T7 Q-BUS INTERFACE 



2949 

2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2%1 
2962 
2%3 
2964 
2965 
2966 
2967 
2968 
2%9 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 



017106 
017106 
017114 
017120 
017122 
017124 

017126 
017132 
017140 
017146 
017154 
017156 

017160 
017166 
017170 
017176 



170000 
170020 



000001 
000002 
000004 
000010 
000020 
040000 
100000 



012737 
005737 
100401 
000441 
005000 

005037 
012737 
012737 
032737 
001001 
077005 

032737 
001015 
012737 
000413 
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QBEl-170000 
QBE2=170020 
QBUS EXERCISER TESTS FOR THE K2 

LOOK FOR 18 AND/OR 22 BIT Q BUS EXERCISER. THE 18 BIT QBE IS EXPECTED TO 
BE CONFIGURED FOR AN ADDRESS OF 770000. THE 22 BIT QBE IS EXPECTED TO BE 
BE CONFIGURED FOR AN ADDRESS OF 17770020. BOTH QBES SHOULD BE AT A HIGHER 
INTERRUPT PRIORITY THAN THE K2 UNDER TEST. IN OTHER WORDS THEY SWKJLD BE 
INSTALLED IN THE BACKPLANE SO THAT THEY ARE BETWEEN THE ARBITER CPU AND THE 
K2 UNDER TEST. 

jDefinitions for QBE CSRl bits 



000001 


URO= 


1 


UORD TRANSFER 


000000 


BYT« 


0 


BYTE TRANSFER 


000000 


HD= 


0 


HOLD DATA 


000002 


RR= 


2 


ROTATE DATA RIGHT 


000004 


RL» 


4 


ROTATE DATA LEFT 


000006 


LN« 


6 


LOAD NEW DATA 


000000 


DR- 


0 


QBE DATA REGISTER IS DATA SOURCE 


000020 


AD- 


20 


QBE ADDRESS REGISTER IS DATA SOURCE 


000000 


HOG- 


0 


HOG MODE 


000040 


Bl= 


40 


ONE TRANSFER PER DUG 


000100 


B2» 


100 


TWO TRANSFERS PER DMG 


000140 


B4» 


140 


FOUR TRANSFERS PER DMG 


000200 


DATIC- 


200 


DATIO TRANSFER 


000400 


DIN= 


400 


J DATA IN TO QBE TRANSFER 


000600 


DOUT- 


600 


.DATA OUT FROM QBE TRANSFER 



QBE CSR2 bit definitions 



000111 
050760 



174446 
017200 
000240 
000001 



000002 
000001 



174470 



174442 
174454 
174456 



174456 
050760 



GO- 


1 


IRQ4- 


2 


IRQ5- 


4 


IRQ6- 


10 


IRQ7- 


20 


A16- 


40000 


A17- 


100000 


QBETST: 






MOV 




TST 




BMI 




BR 


50*: 


CLR 




CLR 




MOV 




MOV 


10* : 


BIT 




BNE 




soe 



11$; 



BIT 
BNE 
MOV 
BR 



SET 60 BIT 

ENABLE INTERRUPT PRI 

ENABLE INTERRUPT PRI 

ENABLE INTERRUPT PRI 

ENABLE INTERRUPT PRI 

ASSERT ADDRESS BIT 16 

; ASSERT ADDRESS BIT 17 



«lll.a«MMR 

QBE18 

50* 

2$ 

RO 

9#CHA1H 

«24*.8«CHA1L 

#SCC641.8#CMDR 

#6IT00.a#STATl 

111 

RO.IOI 

#8IT01.8#STAT1 
1» 

«l.a«QBE18 
21 



Load DTC master mode register 
Is there a q bus exerciser 
Don't knoM, go find out 

Init RO 

...no CPU interleave 

Load chain address register 
Issue start chain command 
Was TC bit set? 

Loop control 

Was EOP received? 

SET FLAG INDICATING THAT A QBE IS PRESENT 



: Command chain to check for QBE at location 170000 



E7 



KXJll'CA FUNCTIONAL TEST 
T7 Q-BUS INTERFACE 



3018 


017200 


001606 




3019 


017202 


>^4^ A^^V >VJ^ 

000020 


001410 


3020 


017206 


177400 


170000 


3021 


017212 


000001 




3022 


017214 


000214 




3023 


017216 


000030 


AAA • 4 A 

000140 


3024 








3025 


A4 ^AAA 

017222 


AAPAV^ 

005037 


ACT A^^ A 

050760 


3026 








3027 








3028 


A 4 ^ A A^ 

017226 


005737 


050756 


■V/\AA 

3029 


017232 


100401 




VAVA 

3030 


A4 ^A ^< 

017234 


000496 




9A V a 

3031 


A« ^A9f 

017236 


AAf AAA 

005000 




3032 


017240 


005037 


4 7444^ 

174446 


5033 


017244 


Ai ^797 

012737 


A 4 77 4 O 

017312 


TATil 

5054 


01 7232 


Al 07T7 

012737 


000240 


1ATC 

3035 


017260 


AT^7T7 

032737 


AAAAA4 
000001 


3036 


A* TA^£ 

017266 


AA % AA 1 

001001 




5057 


Al ^^^A 

017270 


A77AAC 

077005 




3058 








5059 


017272 


AT^7T7 

052 f 5/ 


AAAAA1 
000002 


3040 


A1 7TAA 

01 r300 


AA1 Al n 

001012 




TA^ 1 

5041 


A1 TTA^ 

01 ' 302 


Al 07T7 

012 f 3 ( 


AAAAA4 
000001 


VA^ ^ 

3042 


Al A 

01 r 510 


f\/\f\A 1 A 

000410 




3045 








3C44 










Al ix\ n 
01 r512 


AAA£.AO 

000OO2 




3040 


Al 1 it 

017514 


1 774AA 

1 1 r400 


1 7AAOA 

1 /0020 


^AA7 

504 r 


Al 7T^A 

01 r 320 


AAAAA1 
OOOOOl 




504o 


Al 

01 r322 


AAAATA 
0U0030 


AAA1 4A 

000140 


TA^Q 
304** 








3050 


Al 7T0& 

01 r326 


AACAT7 
003O3 1 


ACA7^£. 

030 f 3o 


3031 








303c 


Al 7*1^ 

017552 


AtT7'S7 

035 f 5 / 


Ae:A7£.A 
030/60 


3033 


Al 1XAf\ 

017540 


AA1 4 A4 

001404 




3034 


Al ^XA ^ 

01 r542 


AA4 7T7 

00473 / 


Al 74 1 O 

01 f412 


3033 


Al TXAC 

01 f 34o 


AAA1 T7 

00013 f 


A01 AAA 

021000 


503O 


Al 

017532 


AT'i7l7 

03275 / 


AAAAA1 

000001 


5057 


Al 7^£A 

017560 


AA1 4 A4 
001404 




5030 


Al 7*^*1 

017362 


AA47T7 
004737 


A 4 74 4 

017442 


3039 


01 r300 


AAA1 T7 

00015 ( 


A04 AAA 
021000 


TA£A 

5060 


Ai 7*75 

01 r 572 


A^57*7 

052737 


AAAAA4 
000001 


3061 


Al 7il AA 

017400 


AA1 4A'^ 

001402 




YA£^ 

3062 


f\ \ 74 A*^ 

017402 


AA4 797 

004737 


A 4 74 04 

017424 


3063 


017406 


AAA4 T7 

000137 


A')4 AAA 

021000 


3064 








3063 


017412 


AA4797 

004737 


A4 74 4 

017442 


3066 


Al 74 1 £ 

017416 


AA4 7*7 

004737 


A4 74 

017424 


VA£ ^ 

3067 


A* 74^*1 

017422 


AAA'iA7 

000207 




^0<sA 








3069 








3070 








3071 








3072 








3073 


017424 


012737 


170022 


3074 


017432 


012737 


017670 
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24$: 



1606 :Chain load word 

20. SOURCE ihold source 

17740C.aBEl :destination is the Q bus exerciser on the LSI bus 

1 : operation count 

DMAV s i nterrupt vector 

30.140 : channel mode register 

9«QBE18 :N0 18 BIT QBE PRESENT 



CLR 



174442 
174454 
174456 



174456 
050756 



1»: 
2%'. 
51»: 

20»: 

21$: 



;Co<nmand chain to check for QBE at location 170020 
25*: 



3$: 





sIS THERE A Q22 BUS EXERCISER PRESENT? 


TST 


QBE22 




BMI 


51* 




BR 


4$ 




aR 


RO 


Init RO 


aR 


aOCHAlH 




MOV 


#25$.9«CHA1L 


Load chain address register 


NOV 


*SCCCHl.a#CMOR 


Issue start chain command 


BIT 


«6IT00.a*STATl 


Uas TC received? 


BNE 


21$ 




SOB 


R0.20$ 


Loop control 


BIT 


«BIT01.a#STATl 


;Srs EOP been received? 


BNE 


3$ 




MOV 


#1.9«QBE22 


SET FLAG INDICATING 022 PRESENT 


BR 


4» 





050756 4$ : 



050760 
050756 



602 


{Chain load word 




177400. Q6E2 ; Destination is the Q bus exerciser on the LSI bus. 


1 


;0p count 




30.140 


{Channel mode register 


CLR 


a«QBE22 :NG Q22 BUS EXERCISER PRESENT 


BIT 


9«QBE18.9MBE22 


ARE BOTH QBES PRESENT? 


6EQ 


5» 


BRANCH IF NOT 


JSR 


PC.Q1822 


GO TEST ALL QBE FUNCTIONS 


JMP 


QBEFIN 


GO TO END OF PASS AFTER QBE TESTS 


BIT 


«6IT00.3«QBE18 


IS THERE AN 18 BIT QBE PRESENT? 


BEQ 


6$ 


BRANCH IF NOT 


JSR 


PC.Q18BEX 


GO DO 18 BIT QBE TESTS ONLY 


JMP 


QBEFIN 


GO TO END OF PASS AFTER 18 BIT QBE 


BIT 


«6IT00.a«QBE22 


IS THERE A 22 BIT QBE PRESENT? 


BEQ 


7$ 


BRANCH IF NOT 


JSR 


PC.Q22BEX 


GO DO 22 BIT QBE TESTS ONLY 


JMP 


QBEFIN 


GO TO END OF PASS ROUTINE 


JSR 


PC.Q188EX 




JSR 


PC.Q22BEX 




RTS 


PC 





5$: 

6$: 
7$: 

Q1822: 



5 SUBROUTINE TO INITIATE DMA TRANSFERS TO/FROM THE QBUS EXERCISERS 



TESTS 



017656 
174442 



Q226EX: MOV «Q6E2*2.QBEG0a0 
MOV «QBCHN2.S«CHA1L 



;QBE 22 STARTING ADDRESS 
:L0A0 CHAIN ADDRESS 



KXJll CA FUNCTIONAL TEST 
T7 Q-BUS INTERFACE 











tmt. ftl 7AAO 


ni D7T7 




UX iOjO 




ftl 07T7 


UX ' rXO 


1 7AAA3 

X f *^*e 


> v » O 








(it70 












X f 1MMO 






m 3777 
UXc '0 ' 


W\AA/X 


wx^xu 


"KClIKO m 747n 


ni 3777 
UXc 'Of 


UcVDvX 


AAA74A 
W*T*T f HO 


ni 747A 


ni 37X7 
vXc ' 9 ' 


AA^3rW« 
U^JCVD 


f 3c 












ftA3777 
VHC 1 0 1 




X 1 ij^nj 




01 P7X7 

VXc f 9 f 




1 7ililgil 






017'»73 
ux ijic, 














077O01 
V f f \^x 














VVV7 vX ' 


01P7^7 

VXC f J f 


017744 

VX f » 


1 7AdA3 

X f HH^C 


JVTFV vX ' J*fv 


01 ?777 

VXc r 0 r 


030«;i 7 
VCV3X0 


AililTilC 
UMI 1 HO 


VX f J*rw 


01P737 

VXC r J r 


0A^90A 

VH^CVv 


V*H? f JC 


VX f J J*r 


0009A0 






^041 017SiUt 

JV7X VX ' J JO 


01P777 

VXC 1^1 


0009A0 




JV7C VX ' JOf 


OOA777 


017S7? 
VX IJIC 




3093 Q17S70 


000307 

VWCV ' 






3094 








3095 017572 








3096 








3097 017572 


032737 


014000 


174456 


3098 017600 


001774 






3099 017602 


032737 


000002 


174456 


3100 017610 


001402 






3101 
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BR GBEXER 
OlSGEX: MOV <KaBEl*2.GBEG0*10 

nOV «QBChM3.9«CHAlL 
;FIRST LOAD THE QBUS EXERCISER UITH DESIRED PARAMETERS. AND THEN 
:TELL IT TO GO EXECUTE THE OPERATION 



: SET UP FOR QBE 18 TESTS 



QBEXER: aR MCHAIH 

MOV *l.a#SOURCE 

NOV 4B0QXFR.EHA0R 

MOV «NOSIG.ESAOR 
NOP 

BIC «BIT05.a«K2CSRJ 

MOV »SCCCHl.a«CMDR 

JSfl PC.l* 

aR RO 

SOB RO.. 

sNOU CHECK THE RESULTS OF THE TRANSFER 



: CLEAR CHAIN ADDRESS SEGMENT /TAG 

SET ERROR MESSAGE... 
. . .AND SIGNATURE POINTERS. . . 
...ERROR WILL BE CALLED LATER. 

;aEAR THE SACK Tir€-OUT BIT 
: ISSUE START CHAIN COMMAND 
! CHECK THAT TRANSFER UAS SUCCESSFUL 

sGIVE IT TIME 



MOV 
MOV 
MOV 
NOP 

MOV 

JSR 
RTS 



#QBDM4.a«CHAlL 
40MA4.EMA0R 
«NOSIG.ESAOR 

♦SCCCHl.a#CMDR 
PC.l* 

PC 



SET ERROR MESSAGE... 
. . .AND SIGNATURE POINTERS. . . 
...ERROR UILL BE CALLED LATER. 



; SUBROUTINE TO CHECK STATUS OF DMA TRANSFER 

DID TRANSFER FINISH 



3102 
3103 
3104 
3105 



3106 
3107 
3106 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 



017612 
017614 
017616 
017624 
017626 
017634 
017642 
017644 



01764O 
017650 
017654 
017656 
017660 
017662 
017664 

017670 
017672 
017676 
017702 
017704 
017706 
017712 



104112 
000413 
032737 
001007 
012737 
012737 
104113 
000207 



001606 
000020 
177420 
000000 
000001 
000214 
000030 

00' 'M^ 
000000 
177400 
000007 
000214 
000030 
000000 



000001 174456 2$: 



020451 
045206 



001410 



000140 



017770 
170020 



100140 
017646 



044746 
044752 



3$: 



BIT #14000. a*STATl 

BEQ U 

BIT #E0P.a#STATl 

BEQ 2* 



ERROR ♦112 
BR 3» 
BIT ♦TC.a^STATl 
BNE 3> 
MOV #0MA3.EMA0R 
MOV «N0SI6.ESA0R 
ERRGR»113 
RTS PC 



UAS THERE AN NXM? 



. . \\ 

!l >> ERROR 112, BAD TRANSFER 
;:// 



5 DID TRANSFER COMPLETE SUCCESSFULLY? 



>> ERROR 113. INCOMPLETE TRANSFER, EOP.'TC NOT SET 



iConmand chain to t«ll the to start operation 
QBE60: < CARA ! CARS! COP! IV! MODE > TChain load word 

20, SOURCE ihold source 

177420 

.WORD 0 : REPLACE ZERO UITH ADDRESS OF QBE CSR 2 

1 {Operation count 

OMAV s 
<SURQ!HM>,<TRUU!INTLV> 



QBCHN2: 1607 ; Chain load word 

O.QBETOl {Source is 

177400, Q6E2 {Destination is the q22 bus cxcr^ 

7 {Load Seven words 

DMAV {DMA vector 
<SURQ!HM>,<CTC!TRUU!INTLV> 

0,06EG0 {Chain address 



Mr 



b / 

KXJll 
T7 



•CA FUNCTIONAL TEST 
0-BUS INTERFACE 



3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 



3144 



3145 



017716 
017720 
017724 
017730 
017732 
017734 
017740 



017744 
017746 
017752 
017756 
017760 
017764 

017770 
017770 
017772 
017774 
017776 
020000 
020002 
020004 
020006 
020006 
020010 
020012 
020014 
020016 
020020 
020022 
020024 
020024 
020026 
020030 
020032 
020034 
020036 
020040 



001607 
000000 
177400 
:'O0O7 
000^14 
000030 
000000 



001612 
100000 
000000 
001000 
125252 
000031 



000641 

000000 
061022 
177000 
125252 
000000 
000000 

000621 
000400 
001412 
100000 
000000 
000000 
000000 

000621 
000400 
001414 
100000 
000000 
000000 
000000 



017770 
170000 



100140 
017646 



061022 
061022 

000000 
000344 
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iCotiHiand chain to load QBE with data. 



QBCfff43: 1607 

O.QBETOl 
177400. QBEl 

7 

DMAV 

< SURQ ! HM> . < CTC J TRUU ! INTLV > 
O.QBEGO : Chain address 



Chain load word 
Source is 

Destination is the ql8 bus exerciser 
Load Seven words 
DMA vector 



Comnand chain to transfer and search from Q bus memory to lOP memory. 
Uill search for end of data pattern 125252. 
QeCHN4: < CARA !CARB! COP iPATMSK! MODE > ; CHAIN r OAO UORD 



<GeMEM!UP>.BUFRl 
O.BUFRl 
1000 

125252.0 
31.344 



:LSI MEMORY 
lOP fCMWY IS DESTINATION 
OP COUNT 
PATTERN /MASK 
< SURQ ! HM ! SNM> .< INTLV . STUU > 



QBETOl: 



QBET02: 



QBET03: 



URD!HD!DR!B1!D0UT 
0 

BUFRl 

-1000 

125252 

0 

0 

URO!AO!HOG!DOUT 

400 

TSTLOC 

-100000 

0 

0 

0 

URO!AO!HOG!DOUT 
400 

TSTL0C*2 

-100000 

0 

0 

0 



;DATA FOR FIRST CSR 
DATA FOR SECOND CSR 
DMA TRANSFER ADDRESS 
UORD COUNT 

DATA FOR QBE DATA REG 
LATENCY COUNTER/ READ ONLY 
MAX VALUE LATENCY COUNTER 

jDATA FOR FIRST CSR 
DATA FOR SECOND CSR 
DMA TRANSFER ADDRESS 
UORD COUNT 

DATA FOR QBE DATA REG 
LATENCY COUNTER/ READ ONLY 
MAX VALUE LATENCY COUNTER 

;DATA FOR FIRST CSR 
;DATA FOR SECOND CSR 

sDMA TRANSFER ADDRESS 
iUORD COUNT 

;DATA FOR QBE DATA REG 

; LATENCY COUNTER/ READ ONLY 

5 MAX VALUE LATENCY COUNTER 



3146 










3147 








1 ASCII 


3148 










3149 020042 


102 


125 


123 


OMAl: 


3150 020102 


103 


110 


101 


DMACl: 


3151 020133 


103 


110 


101 


0MAC2: 


3152 020170 


103 


110 


101 


0MAC3: 


3153 020221 


103 


110 


101 


DHAC4: 


3154 020252 


103 


110 


101 


DMAC5: 


3155 020303 


103 


110 


101 


DMAC6: 


3156 020336 


103 


110 


101 


DMAC7: 


3157 020413 


124 


103 


041 


DMA2: 


3158 020451 


104 


115 


101 


DMA3: 


3159 020513 


104 


115 


101 


DMA4: 



ERROR MESSAGES 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



/BUS TIME-OUT AT 
/CHAN X (LOCAL 



\CHAN 
/CHAN 
/CHAN 
/CHAN 
\CHAN 
/CHAN 



DMA CONTROLLER / 
> LOCAL)/<CRLF> 
(LOCALCI/0)-> LOCAL)\<CRLF> 



(LOCAL *> Q-BUS)/<CPI 
(Q-BUS -> Q-BUS}/':fl r ' 
(Q-BUS •> LOCAL)/<CRLF> 
(Q-BUS I/O •>LOCAL\<CRLF> 
(Q-BUS SHARED MEM ->LOCAL SHARED MEM/<CRLF> 
/TC!EOP INTERRUPT NOT RECEIVED/ 
/DMA INCOMPLETE. TC!EGP BOTH aEAR/ 
/DMA INCOMPLETE. EOP SET (BUS TIME-OUT)/ 



H 



KXJll-CA FUNCTIONAL TEST 
T7 0-BUS INTERFACE 



3160 
3161 
3162 
3163 
3164 
3165 
3166 



020562 
0?0601 
020627 
020661 
020716 

021000 



104 

200 
123 
105 
104 



115 
102 
101 
117 
124 
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101 
101 
103 
120 
103 



DMA5: 

BOQXFR: 

SACKTO: 

EOPER: 

SACKER: 

.EVEN 

QBEFIN: 



.ASCIZ /DMA DATA ERROR/ 

.ASCIZ <CRLF>/BAD TRANSFER TO QBUS/ 

.ASCIZ /SACK TIME-CKJT BIT NOT SET/ 

.ASCIZ /EOP NOT SET BY SACK TIME-OUT/ 

.ASCIZ /DTC CONTENTS NOT AS EXPECTED AFTER SACK TIME-OUT/ 



KXJll- 
T7 



CA FUNCTIONAL TEST 
Q-BUS INTERFACE 
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3169 


021000 


032777 


010000 


160132 


3170 


021006 


001002 






3171 


021010 


000137 


021754 




3172 










3173 










3174 


021014 








3175 


021014 


012701 


061022 




3176 


021020 


012702 


010000 




3177 


021024 


005003 






3178 


021026 


010321 






3179 


021030 


062703 


000002 




3180 


021034 


077204 






3181 


021036 


012702 


001412 




3182 


021042 


012722 


177777 




3183 


C 046 


005022 






3184 


i "0 


012722 


125252 




3185 


Ci._s/>4 
021060 


012722 


052525 




3186 


012722 


063636 




3187 


021064 


012712 


036363 




3188 


021070 


005037 


174454 




3189 


021074 


012737 


000111 


174470 


3190 


021102 


005037 


174444 




3191 










3192 


021106 


012737 


021356 


174440 


3193 


021114 


012737 


000241 


174454 


3194 


021122 


004737 


021512 




3195 


021126 


102767 






3196 


021130 


012702 


000020 




3197 


021134 


012737 


021416 


174440 


3198 


021142 


012737 


000241 


174454 


3199 


021150 


004737 


021512 




3200 


021154 


102767 






3201 


021156 


005737 


001412 




3202 


021162 


001007 






3203 


021164 


042737 


177770 


001414 


3204 


021172 


022''37 


000004 


001414 


3205 


021200 


001412 






3206 


021202 


077224 






3207 


021204 


012737 


021756 


044746 




021212 


012737 


045206 


044752 




021220 


104114 






3208 


021222 


000137 


021754 




3209 


021226 


012737 


021476 


021442 


3210 


021234 


012737 


021502 


021462 


3211 


021242 


012737 


021436 


174440 


3212 


021250 


012737 


000241 


174454 


3213 










3214 










3215 










3216 


021256 


004737 


021512 




3217 


021262 


102761 






3218 


021264 


004737 


021622 




3219 










3220 










3221 


021270 


012737 


021504 


021442 


3222 


021276 


012737 


021510 


021462 



:NOU SEE IF 

BIT 

arc 

JMP 

■.mm GOOD lOP 

s BOOT/SELF TEST 



THERE IS A KNOUN GOOD lOP IN THE SYSTEM 

«IT12.aSUR :IS THERE A KNOUN GOC» lOP 
GO$I0P 
lOPEND 

MUST BE SET TO ID* 15 AND 
SWITCH SHOULD BE SET TO 5 



GOIIOP: :INIT SOME STUFF IN LOCAL MEMORY. 



199*: 



RESIDE 
OR 6. 



AT ADDRESS 1775740 



jINIT 
1$: 



200$: 



2101: 



212*; 



214$: 



MOV 


«UFR1.R1 




MOV 


#4096.. R2 




CLR 


R3 




MOV 


R3.(R1> 


» 


ADD 


*2.R3 




SOB 


R2,199$ 




MOV 


#TSTL0C,R2 


;INIT MORE ^«M0RY LOCATIONS 


MOV 


#-l.CR2)* 




CLR 


(R2)* 




MOV 


*125252.(R2)* 




MOV 


*52525.CR2)* 




MOV 


*63636.(R2)* 




MOV 


*36363,(R2) 




aR 


9«CMDR 


: RESET T^C DTC 


MOV 


*lll.a#MMR 


:LOAD DTC MASTER MODE REGISTER 


CLR 


3«CHA2H 


J CLEAR CHAIN ADDRESS SEGMENT/TAG 


BUS MEMORY WITH KNOUN DATA 


MOV 


«230$,9«CHA2L 


:LOAD CHAIN ADDRESS 


MOV 


«SCCCH2,3«CMDR 


! ISSUE START CHAIN COMMAND 


JSR 


PC.CH2S1A 




BVS 


11 




MOV 


#20. R2 


jGIVE THE KNOUN GOOD lOP 16 CHANCES 


MOV 


«250».a#CHA2L 


:LOAD CHAIN ADDRESS 


MOV 


#SCCCH2.a#CMDR 


: ISSUE START CHAIN COMMAND 


JSR 


PC.CH2STA 




BVS 


200$ 


;TRY AGAIN IF V BTT IS SET 


TST 


TSTLOC 


iUAS TPRO OF 1Hr KHOUN GOOD lOP = ZERO? 


BNE 


212$ 




BIC 


*tC7.TSTL0C*2 


ISTRIP OFF NON-STATUS BITS 


CMP 


#4. TSTLOC ^2 


: IS KNOUN GOOD lOP UAITING FOR A Q-BUS C0W1AN0? 


BEQ 


214$ 




SOB 


R2,200$ 


InO, TRY AGAIN UP TO 16 TIMES 


MOV 


4KGNR.EMADR 


:!\\ 


MOV 


#N0SIG.ESADR 


>> ERROR 114, NO RESPONSE FROM KNOUN GOOD lOP 
;!// 


ERR0R«114 


JMP 


lOPEND 




MOV 


#255$.251$*4 




MOV 


#255$*4,251$»24 




MOV 


«251$.S#CHA2L 


IlOAO CHAIN ADDRESS 


MOV 


«SCCCH2.9#CMDR 


: ISSUE START CHAIN COMMAND THAT UILL 




;LOAD KNOUN GOOD lOP TPRS 2 6 3 UITH LOAD 
: PARAMETERS AND THEN COMMAND IT TO DO A 
:Dt1A LOAD 



JSR 
BVS 
JSR 



PC.CH2STA 
214$ 

PC.TPRCHK 



TRY AGAIN IF SACK TIME OUT OCCURRED 



; KNOUN GOOD lOP HAS NOW BEEN INITIALIZED 

211$: MOV #256$.251$»4 ; 

MOV #256$*4.251$*24 ; 



J 



KXJll 
T7 



CA FUMC7I0ML TEST 
Q-BUS INTERFACE 
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3223 021304 


012737 


021436 


3224 021312 


012737 


000241 


3225 021320 


004737 


021512 


3226 021324 


102761 




3227 021326 


004737 


021622 


3228 021332 


012737 


017744 


3229 021340 


012737 


000241 


3230 021346 


004737 


021512 


3231 






3232 021352 


000137 


021754 


3233 






3234 021356 






3235 021356 


001602 




3236 021360 


000000 


061022 


3237 021364 


100000 


061022 


3238 021370 


010000 




3239 021372 


000030 


100140 


3240 






3241 






3242 021376 


001602 




3243 021400 


A A A A A A 

000000 


001416 


3244 021404 


100000 


001416 


3245 021410 


A A A A A A 

000004 




3246 02141? 


000030 


AAA A A A 

000140 


3247 






3248 021416 






3249 021416 


AAA ^ AA 

001602 




3250 021420 


177400 


175740 


3251 021424 


A A/\A 

000000 


001 tl2 


3252 021430 


AAA 

000002 




3253 021432 


AAAA9A 

000030 


AAA • A A 

000140 


3254 






3255 021436 






3256 021436 


AAA ^ A A 

001602 




3257 021440 


A A A AAA 

000000 




VAlPn AAA AAA 

3256 021442 


021476 




3259 021444 


177400 


175744 


A AAA APA 

3260 021450 


AAA AAA 

000002 




4A^ A AAA A K* A 

3261 021452 


A AA a4 A 

000030 


100140 


3262 






3263 






^ A ^ A A A A A ^ 

3264 021456 


A A A ^ A A 

001602 




3265 021460 


A M A A A A 

000000 




VA^^ AAA A^A 

3266 021462 


A A • FA A 

021502 




VA^^ AAA A^A 

3267 021464 


177400 


175740 


■tftA^ A AAA A 'VA 

3268 021470 


A AA AA A 

000001 




V'S^A AAA A ^ A 

3269 021472 


A AAA V A 

000030 


AAA • ii A 

000140 


3270 






VA^A AAA A 

3271 021476 


A A A aP A 

022054 




^A^Btf^ AAA 0i A A 

3272 021500 


100000 




VA^^V AAA ^AA 

3273 021502 


AAA A A A 

000002 




3274 021504 


022114 




3275 021506 


100000 




3276 021510 


000002 




3277 






3278 021512 






3279 







:LOAD CHAIN ADDRESS 

: ISSUE START CHAIN COMMAND 



220$: 
230$: 



MOV #251$.a*CHA2L 

MOV «CCCH2,a*CMDR 

JSR PC.CH2STA 

BVS 211$ 

JSR PC.TPRCHK 

MOV «QBCHN4,9#CHA2L s CHECK THAT TRANSFER COMPLETED 

MOV *SCCCH2.8«CMDR ; ISSUE START CHAIN COMMAND 

JSR PC.CH2STA 

JMP lOPEND 



; TRANSFER DATA IN '(2 -OCATIONS TO Q BUS MEMORY 
< CARA ! CARS! COP! MODE > 
'•<^2f't..1!UP>.BUFRl 
i:.i^!UP>.BUFRl 
40%. 

<SURQ • HM> . <CTC • TRUU ! INTLV> 

; TRANSFER DATA IN K2 LOCATIONS TO QBUS MEM 
^CARAICARe'CL't^iMODE) 

<k2mem!up>,tstlgc*4 
<qbmem!up>.tstl{x:m 

4 

<SURQ!HM> . <TRUU:iNTLV> 

250$: ; CHAIN FILE TO READ TPRO AND TPRl OF KNOWN GOOD lOP 
<CARA 'CARS! COP! MODE > 

< QBUSIO! 37400! UP >, 175740 ; ADDRESS OF TPRO IN K6IQP 

<K2MEM!UP>, TSTLOC 

2 

<SURQ!HM>, <TRUW!INTLV> 

251$: J CHAIN FILE TO LOAD PARAMETERS INTO TPRS 2 6 3 
< CARA ! CARS! COP! MODE > 
<K2MEM!UP> 
.UORO 255$ 

<QBUSI0!37400!UP>. 175744 
2 

<SURQ!HM>. <CTC!TRUU!INTLV> 

; ISSUE A DMA LOAD COTtlANO 

<CARA ! CARS! COP! MODE > 

<K2MEM!UP> 

.UORO 255$ *4 

<QBUSIO ! 37400! UP >, 175740 

1 

<SURQ!HM>. <TRUU!INTLV> 



255$: 
256$: 

CH2STA: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORO 



KG$T01 

<QBMEM!UP> 

2 

KG$T03 

<QBMEM!UP> 

2 



CHAIN TO INIT KNOWN GOOD lOP MEMORY 

. . .RESIDES IN Q BUS MEMORY 

DMA LOAD COMMAND FOR KNOWN GOOD lOP TPRO 



J DMA LOAD COMMAND FOR KNOWN 6000 lOP 



! SUBROUTINE TO POLL THE CHAWCL 2 STATUS REGISTER TO 

llWICATE WHEN A TRANSFER HAS FINISHED AND IF IT WAS SUCCESSFU., 



KXJU 
T7 



■CA FUNCTIONAL TEST 





Q-BUS INTERFACE 






3280 


02l3l£ 


U3£ f O / 


014000 


174454 


3281 










3282 




My£i SI 


000002 


174454 


3283 










3284 










3285 






000040 


177540 


3286 










3287 




rtl 37X7 


020513 


044746 






m 37X7 


045206 


044752 












^288 






000040 


177540 


$289 










3290 










3291 






000001 


174454 


3292 










3293 


021602 


012737 


020451 


044746 




021610 


012737 


045206 


044752 




021616 


104116 






3294 


021620 


000207 






3295 










3296 


021622 
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3297 
3298 
3299 
3300 
3301 
3302 
330» 

3305 
3306 
3307 
3308 
3309 
3310 



3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 

3525 
3326 
3327 
3328 
3329 



21: 

1$: 

3$: 

TPRCHK: 



vCXOCC 


VXC tot 


1 77777 




1 1 • 

XT • 


MCXOOv 


\AJJ\JO 1 








021634 








2i: 


021634 


012737 


021734 


174440 




^^21642 


012737 


000241 


174454 




^21650 


004737 


021512 






021654 


102767 








021656 


005737 


001412 






021662 


001357 








021664 


032737 


154000 


001414 




021672 


001410 








021674 


012737 


022016 


044746 




021702 


012737 


045206 


044752 




021710 


104117 








021712 


000407 








021714 


042737 


177770 


001414 


31: 


021722 


022737 


000004 


001414 




021730 


001341 








021732 


000207 






41: 


021734 








5*: 


021734 


001602 








021736 


140000 


175740 






021742 


000000 


001412 






021746 


000002 








021750 


000030 


000140 






021754 








lOPEND: 


021754 


000467 








021756 


116 


117 


040 


KGNR: 


022016 


113 


116 


117 


KG.ER: 



BIT M4000.a#STAT2 
BEQ CH2STA 
BIT #E0P.a»STAT2 
BEQ 1$ 

: TRANSFER UAS NOT SUCCESSFUL. 
BIT «6IT05.9«K2CSRJ 
BNE 2$ 
HOV «OriA4,Ef1A0R ::\\ 
NOV MOSIG.ESAOR 
ERR0R*115 ; ;// 

SIC «6IT05.9«K2CSRJ 
SEV 

BR 3$ 
BIT #TC.a#STAT2 
BNE 3$ 
MOV «0MA3.EMADR 
HOV 4N0SI6.ESA0R 
ERR0R*116 Si// 
RTS PC 



:LOOK FOR THE CA'NAC BIT TO SET 
luAS THE TRANSFER SUCCESSFUL? 
UAS IT DUE TO SACK TIME-OUT? 



>> ERROR 115. TRANSFER INCOMPLETE. EOP SET 



: CLEAR THE SACK TIME-OUT BIT 
; SET THE V BIT IN PSU 

;UAS TC SET? 



» ERROR 116. TRANSFER INCOMPLETE. EOPiTC NOT SET 



; SUBROUTINE TO CHECK TPRO £ 1 OF THE KNOWN GOOD lOP AFTER 
J ISSUING A QBUS COMMAND TO IT 

MOV #-l.TSTLOC :INIT TEST LOCATIONS 

CLR TSTLOC+2 

;NOW READ TPR 0 e 1 OF THE KNOWN GOOD lOP TO mhKF SURE COMMAND IS DONE. 
MOV " 
MOV 
JSR 
6VS 
TST 
BNE 
BIT 
BEQ 
MOV 
MOV 



*5l,a*CHA2L 
*SCCCH2.8#CMDR 
PC.CH2STA 
21 

TSTLOC 
1$ 

#154000, TSTL0C*2 
3$ 

«KG.ER,EMADR 
«N0SIG.ESA0R 
ERR0R*117 
BR 41 

BIC #tC7.TSTL0C*2 
CMP #4, TSTLOC ^2 
BNE 21 
RTS PC 



ISSUE START CHAIN COMMAND 

TRY AGIAN IF SACK TIME-OUT IS SET 
IS TPRO OF KNOWN GOOD lOP = ZERO 

;ANY ERRORS? 



8 » ERROR 117, KNOWN GOOD lOP ERROR 



{STRIP OFF NON-STATUS BITS 



.EVEN 



; CHECK TPR 0 £ 1 OF KNOWN GOOD lOP TO SEE THAT COMMAND WAS SUCCESSFU. 
< CAR A ' CAR6 ' COP ' MODE > 

<QBl.'SiO» UP >. 175740 {TRANSFER FROM TPRO £ 1 OF KNOWN GOOD lOP 

<K2f€M! UP >. TSTLOC {TO K2 MEMORY 

2 

<SURQ ! HM> . < TRUU ! INTL V > 



BR TSTIO { { 

.ASCIZ /NO RESPONSE FROH KNOWN GOOD lOP/ 

.ASCIZ /KNOWN GOOD lOP COMHAND ERROR/ 



I THE FOLLOWING CHAIN FILES WILL BE LOADED BY THE KNOWN GOOD lOP. 



L 

KXJll 
T7 



7 



CA FUNCTIONAL TEST 
Q-8US INTERFACE 



3330 






3331 022054 






3332 022054 


001602 




3333 022056 


100000 


061022 


3334 022062 


000000 


061022 


3335 022066 


010000 




3336 022070 


000030 


100040 


3337 






3338 022074 






3339 022074 


001602 




3340 022076 


100000 


001416 


3341 022102 


000000 


001416 


3342 022106 


000004 




3343 022110 


000030 


000040 


3344 






3345 022114 






3346 022114 


001602 




3347 022116 


000020 


001416 


3348 022122 


100000 


061022 


3349 022126 


001000 




3350 022130 


000030 


000040 


3351 
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KGUOl: jINIT KNOUN GOOO lOP'S MEMORY WITH KNOUN DATA 

< CARA • CARB ! COP ! MODE > 
<aBMEM!UP>. BUFRl 
<K2MEM!UP>. BUFRl 
4096. 

<SURQ!Hn>. <CTC!TRUU!BUSHOG> 

K6«T02: :INIT KNOUN GOOO lOP'S TSTLOCS UITH KNOUN DATA 
<CARA!CAIW!COP!MOOE> 
QBMEM'UP. TSTL0C*4 
K2MEMIUP. TST1.0C*4 
4 

<SURQ!HM>. <TRUU!BUSH0G> 

KGIT03: : CAUSE THE KN04*I GOOO TOP TO TRANSFER TO QBUS 

< CARA ! CARB !CCP! WOE > 

<K2MEM!H0LD>. TSTL0C*4 ; TRANSFER FROM KNOWN GOOO lOP MEMORY. 

<QBMEM!UP>. RUFRl :..T0 Q BUS MEMORY 

1000 

<SURQ!HH>, <rRIM!BUSHOG> 



fJ^JU-CA FUNCTIONAL TEST MACRO YDS. 02 

TIO SECOND SERIAL LINE NEC7201 
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3355 



022134 
022136 
022142 
022150 
022154 
022162 
022164 
022170 
022172 
022174 
022200 
022204 
022206 

022244 



3356 



022244 

3357 
3358 
3359 
3360 
3361 
3362 
3363 

3364 022244 
022244 

3365 022252 

3366 022256 

3367 022264 

3368 022266 

3369 022272 

3370 022276 

3371 022302 

3372 022306 

3373 022312 

3374 022316 

3375 022322 

3376 022326 

3377 022332 

3378 022334 

3379 022340 

3380 022342 

3381 022344 

3382 022350 
022356 
022364 

3383 022366 
3384 

3385 022372 

3386 022376 

3387 022404 

3388 022412 



000004 
012706 
01275/ 
005037 
032777 
001006 
005777 
000240 
102002 
000137 
104415 
000417 
040 



012737 
012705 
012737 
000236 
112715 
112715 
112715 
013745 
113715 
013745 
113715 
013745 
113715 
005745 
020527 
101374 
000413 
010537 
012737 
012737 
104120 
000137 

005037 
012737 
052777 
005001 



001100 
177777 
044742 
000400 

157136 



024602 
022206 

040 



022252 
175736 
022344 

OOOO06 
000166 
000264 
022474 
022475 
022476 
022477 
022476 
022477 

175720 



001120 
047406 
045230 

024536 

002426 
022470 
000200 



♦TEST 10 SECOW) SERIAL LINE NEC7201 

;************************«****«****••**•*****************•****** 

TSTIO: SCOPE 



002426 
156756 



30047$: 
30048$: 



123 



MOV 
MOV 

aR 

BIT 
BNE 
TST 
NOP 
BVC 
JMP 

TINAME. 
BR 

.ASCIZ 
.EVEN 



#STACK.SP 

# l.TRAP^y 

EMPRE 

4eiT8,aSUR 

30048$ 

3$SL2 

30048* 

TSTll 

.♦4 

30049* 



SET A aEAN STACK. 
DISMISS BUS-ERRORS. 
aE/W ERROR PREFIX. 
FORCED ENTRY SELECTED 
BR IF SO. 

CHECK FOR VALID *SL2. 



?? 



\ SECOND SERIAL LINE NEC7201\ 



SKIP NEXT IF OK. 
BYPASS. 

PRINT TEST NUMBER AND NAME. 
.AND SKIP OVER THE ASCII. 



30049*: 

♦TEST 10.1 CLOCK GENERATOR 18254 
TlO.l:: 

NEC7201 SYNC/ASYNC CMULTI -PROTOCOL) SERIAL INTERFACE. 
INCLUDES AN INTEL 8254 TRIPLE PIT FOR BAUD RATE GENERATION. 

FIRST, SET UP THE BAUD GENERATOR, AND VERIFY THAT 
GENERAL PURPOSE TIMER 2 C800HZ) WORKS AS ADVERTISED. 



001110 
002426 



044746 
044752 



000104 
156722 



BAUDSET : 

f^V #.*6.*LPERR 

MU» #175736. R5 

MOV ♦2*.TRAP4X 

SPL 6 

»*0V8 #066. CR5) 

MOVB #166, CR5) 

MOVB #264. (R5) 

MOV HZ800.-CR5) 

MOVB HZ800*1,CR5) 

MOV A4a00.-CR5) 

MOVB A4800*1.CR5) 

MOV A4800.-(R5) 

MOVB A4800*1.(R5) 

1*: TST -(R5) 

CMP R5. #175720 

BHI II 

BR 3* 

2*- MOV R5.IGOA0R 

MOV «NEC1.EMA0R 

MOV #LA16.ESADR 
ERRQR^120 

JMP NEC. END 

3*: CLR TRAP4X 

MOV #5».PEVNT 

BIS «BIT7.S$C5RA 

CLR Rl 



:; LOOP HERE ON ERROR. 

; 18254 CONTROL REG. 

! SET A TRAP CATCHER. 

; RAISE CPU. 

s CHAN A <TIMER-0!2-BYTES!M00E-3!BIN>. 

s CHAN B <TIMER-1! SAME >. 

; 800HZ < TIMER -2! SAME EXCEPT M00E-2>. 

! SET 800HZ INTERVAL »« 50HZ 

s SET CHAN B... 

:...AN0 CHAN A FOR ASYNC 4800 (SYNC 76. 8K). 
! VERIFY THE REMAINING REGISTER ADDRESSES. 

; SO FAR SO GOOD. SKIP OVER THE TRAPPER. 

ERROR 120. BUS ERROR AT 7201 OR 8254 ADDRESS 



RESET BUS -ERROR... 
...SET PEVNT VECTOR. 
TURN IT ON. 



N 



KXJll-CA FUNCTIONAL TEST 



TlO.l 



3389 
3390 
3391 
3392 
3393 
3394 



3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 



aOCK GENERATOR I82S4 

022414 005000 

022416 106427 000000 

022422 077001 

022424 005301 

022426 003007 

022430 012737 047455 044746 

022436 012737 045206 044752 

022444 104121 

022446 005077 156662 4*: 

022452 012737 000260 175736 

022460 012737 002542 000104 

022466 000434 
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022470 005201 000002 



aR RO 

MTPS #PRO 

SOB RO.. 

DEC Rl 

BGT 4$ 

MOV «CC2.EMA0R 
MOV »«SIG,ESADR 
ERR(>.-121 

CLR 9$CSRA 

MOV *260.a#175736 

MOV WISMISS.PEVNT 

BR NEC.ASYNC 



022474 
022476 



000020 
000200 



5$: 

HZ800: 
A4800: 



.WORD INC«1. RTI 

16. 
128. 



LOWER CPU. 

DELAY, PEVNT SHOULD INTERRUPT AND... 
...GIVE A FEW TICKS (MORE THAN 1). 

jW 

i >> ERROR 121, 8254 TIMER 2 (800HZ) DOESN'T UORK 
;// 

TURN OFF PEVNT . . . 
...AND TIMER 2 (MODE-0). 
...RESET THE VECTOR... 
...AND PROCEED. 

ON INTERRUPT, TICK AND RETURN. 



DIVIDER YIELDS " 50HZ 

DIVIDER YIELDS ASYNC 4800 AND/OR SYNC 76. 8K. 



B8 



KXJll-CA FUNCTIOML TEST 
T10,2 SYNC/ASYNC DATA 



3405 



022500 



3406 






5407 






3406 






3409 






3410 






3411 






3412 






3413 






3414 






3415 


000004 




3416 


000005 




3417 


177774 




3418 


177776 




341 * 


000000 




342 


A A'N 

000002 




342 






3422 






3423 






3424 022500 


000 


030 


3425 022502 


AA'% 

002 


024 


3426 022504 


004 


104 


34t; ' 022506 


AAT 

003 


T A 4 

301 


5426 022510 


005 


4 O 

152 


3429 022512 


AAA 

000 


020 


3430 022514 


AA 4 

001 


ATf 

036 


3431 022516 


177777 




Til T'^ 

3432 






3433 






Til Til 

3434 






3435 022520 


AAA 

000 


A9 A 

030 


3436 022522 


AAA 

002 


A A 4 

024 


3437 022524 


004 


040 


3438 022526 


AA^ 

006 


000 


3439 022530 


AA^ 

007 


4 

176 


T44/\ 

3440 022532 


AAV 

003 


V 4 4 

311 


3441 022534 


005 


153 


3442 022536 


000 


200 


3443 022540 


000 


100 


3444 022542 


000 


020 


3445 022544 


001 


036 


3446 022546 


177777 




3447 022550 


001 


004 


XAAA 

jt«»0 KJCCJJC 




5W 


5449 022554 


005 


142 


3450 0225S6 


177777 




3451 






3452 022560 


012700 


022500 


3453 022564 


112701 


000101 


3454 022570 


000407 




3455 022572 


012700 


022520 


3456 022576 


112701 


000177 


3457 022602 


052777 


000004 


3456 022610 


010037 


023254 
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:*TEST 10.2 SYNC/ASYNC DATA 
T10.2:: 

FIVE PASS SYNC/ASYNC DATA TEST (REQUIRES EXTERNAL LOOP-BACKS). 

1. CHAN B. ASYNC (4800 BAUD). 

2. CHAN A. ASYNC (4800 BAUD). 

3. CHAN B. SYNC (76. 8K BAUD). 

4. CHAN A, SYNC (76. 8K P^'JO). 

5. CHAN A. SYNC. DMA DRIVEN. 



LrWi= 








f^CT^TPflTC■ OA AC fl^LlAkJ All AUO 

UtDlLWIh R4 AS CHAN-A AND... 


CHX= 


<5 






...R5 AS "CHAN-IN-TEST" PORT POINTERS. 


STAT- 


-4 






INDICES TO CHAN A/B STATUS... 


R0B= 


-2 






...RCVR DATA... 


CTRL= 


0 






...CONTROL... 


XOB» 


2 






.. .AND XMTR DATA PORTS. 


i ASYNC 


SET-UP 


R 


CODE 


FUNCTION 


A. SET: 


.BYTE 


0. 


030 


C0^f1AND <CHAhNEL RESET >. 




.BYTE 


2. 


024 


BUS INTERFACE <N0N-VECT0RED!PRI1!N0-DMA> . 




.BYTE 


4. 


104 


PROTOCOL <X16!ASYNC-1-ST0P!N0-PARITY>. 




.BYTE 


3. 


301 


RCVR CONTROL <8-BPC!RX-ENAB> . 




.BYTE 


5. 


152 


XMTR CONTROL <8-BPC!TX-ENAB!PRTYX-B> . 




• BYTE 


0. 


020 


COMMAND < RESET -EXT -INTS>. 




.BYTE 
-1 


1. 


036 


INT CONTROL <RXI-ON-ALL!CAV!TX-IE!NO-EXT-IE> 


SYNC 


SET-UP 


R 


CODE 


FUNCTION 



S.SET: 



C.CLR: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
-1 

.BYTE 
.BYTE 
.BYTE 
-1 



0, 030 

2, 024 

4. 040 

6, 000 

7. 176 

3, 3U 

5. 153 
0. 200 
0, 100 

0, 020 

1. 036 

1. 004 

3, 300 

5, 142 



COMAND 

BUS INTERFACE 
PROTOCOL 
SYNC 1 
SYNC 2 

RCVR CONTROL 
XMTR CONTROL 
COMMAND 
COrtlANO 
COMMAND 
INT CONTROL 

INT CONTROL 
RCVR 
XMTR 



<CHAhNEL RESET >. 
<NON-VECTORED!PRI1!NO-DMA> . 
<X1!S0LC!SYNC!N0-PARITY>. 
<SEARCH -XRESS -- UNUSED>. 
<FLAG CODE>. 

<6-6PC ! CRC-ENAB ! RX-ENAB> . 
<6-BPC!TX-ENAB!CCITT!PRTYX-B!CRC-ENAB>, 
<RESET TX-CRC-GEN>. 
<RESET RX-CRC-GEN>. 
<RESET EXT-INT>. 

<RXI-ON-ALL!CAV!TX-IE!NO-EXT-IE>. 

< KEEP - C A V ! DISABLE - ALL - EL SE > 

<RX-DISABLE>. 

<TX-DISABLE>. 



156524 



NEC. ASYNC: MOV 
MOVB 
BR 

NEC. SYNC: MOV 
MOVB 
BIS 

NECOl: MOV 



*A.SET.RO 

#'A.R1 

NECOl 

#S.SET.RO 

#177. Rl 

#4.3«CSRA 

R0.8$ 



s ASYNC MODE FIRST. 



.THEN, SYNC (SDLC) MODE.. 



...REQUIRES <SYNCMA! SYNCMB> IN CSRA. 
SAVE POINTER AS SYNC/ASYNC FLAG. 
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T10.2 SrNC/ASYNC DATA 



3459 022614 


012737 


047531 


044742 




MOV 


#NECCM.EMPRE 


3460 022622 


112737 


000102 


047536 




HOVB 


*'B.NECC : 


3461 022630 


110137 


047541 






novB 


Rl.NECM J 


3462 022634 


012737 


022642 


001110 




MOV 


#.*6.»LPERR ! 


3463 022642 


012706 


001100 






MOV 


*STACK.SP 


3464 022646 


013704 


001326 






MOV 


$SL2.CHA : 


3465 022652 


062704 


000004 






AOO 


«4.CHA 


3466 022656 


010405 








^K)v 


CHA.CHX ; 


3467 Oc:--r60 


062705 


000010 






ADD 


tflO.CHX { 


3468 02^664 


111014 








MOVB 


(RO).(CHA) 


3469 022666 


116014 


000001 






MOVB 


1(R0),CCHA) ; 


3470 022672 


000240 


000240 






240.240 


3471 022676 


112015 








MOVB 


(RO)*.CCHX) 


3472 022700 


112015 








MOVB 


(RO)*.(CHX) ; 


3473 022702 


000240 


000240 






240.240 


3474 022706 


106427 


000200 




U: 


MTPS 


«f>R4 i 


3475 022712 


112014 








rwvB 


CRO)*.CCHA) ; 


3476 022714 


112014 








MOVB 


CRO)».CCHA) ; 


3477 022716 


112015 






2ii 


MOVB 


CRO)*.(CHX) J 


3478 022720 


112015 








rwvB 


CRO)*,CCHX) ! 


3479 022722 


105710 








TSTB 


CRO) 


3480 022724 


100374 








BPL 


2* 


3481 022726 


012703 


061022 






MOV 


#6UFR1.R3 


3482 022732 


012700 


000020 






MOV 


*16..R0 


3483 022736 


005023 






3$: 


CLR 


CR3)* ; 


3484 022740 


077002 








SOB 


R0,3I 


3485 022742 


012703 


061022 






MOV 


#6UFR1,R3 J 


3486 022746 


012702 


037600 






MOV 


#FLT10,R2 ; 


3487 022752 


005037 


001124 






CLR 


♦GODAT ; 


3488 022756 


005037 


00 1126 






CLR 


$BOOAT : 


3489 022762 


005037 


001130 






CLR 


$B0DAT42 : 


3490 022766 


005037 


001132 






CLR 


*B0DAT«4 


3491 022772 


012737 


023674 


000070 




MOV 


«NEC.I,hECV 


3492 023000 


106427 


000000 






MTPS 


4PR0 ; 


3493 023004 


005000 








CLR 


RO 


3494 023006 


012701 


000001 






MOV 


#1,R1 : 


3495 023012 


112265 


000002 






MOVB 


CR2)*.XDBCCHX) ; 


3496 023016 


112715 


000300 






MOVB 


#<3*6IT6>.(CHX) ; 


3497 023022 


023727 


023254 


022520 




CMP 


8I.«S.SET ; 


34')» 023030 


001405 








BEQ 


411 : 


349 J 














3500 023032 


020127 


011022 




4$: 


CMP 


R1,#<18.*BIT8>!18 


3501 023036 


001435 








BEQ 


441 : 


3502 023040 


077004 








SOB 


R0.4« ; 


3503 023042 


000416 








BR 


431 t 


3504 










3505 023044 


105737 


001132 




411: 


TSTB 


$B00AT44 ; 


3506 023050 


100410 








BMI 


421 : 


3507 023052 


077004 








SOB 


R0.41I i 


3508 023054 


012737 


047625 


044746 




MOV 


«NEC3A,EMA0R ; 


023062 


012737 


045610 


044752 




MOV 


#EF11.ESA0R s 


023070 


104122 








ERROR* 122 : 


3509 023072 


020127 


012022 




42$: 


CMP 


R1.*<20.*BIT8!18. 


3510 023076 


001415 








BEQ 


44$ 


3511 












3512 023100 


110137 


001124 




43*: 


fttVB 


RI.IGODAT ; 


3513 023104 


000301 








SWAB 


Rl 



92 



SET ERROR PREFIX . . . 
..CHAN B... 
..ASYNC'SYNC. 
LOOP r€RE ON ERROR. 

GET NEC7201 BASE. . . 

..AND RAI£P TO CHAN-A CONTROL PORT. 

COPY... 

..AND RAISE TO fHAN-B CONTROL PORT. 

COMMAND <CHAN-A-RESET (INCLUDE^ INT LOGIC )> 
UAIT A MOMENT. 

COMMAND <CHAN-B-RESET>. 

UAIT AGAIN. 
RAISE CPU. 
POINT... 

..AND SET BUS-INTERFACE (CR2A ALUAYS). 
POINT... 

..AND SET UP THE REST. 



CLEAR SOME FREE SPACE. 

RCV BUFFER POINTER -> R3. 

XMT BUFFER POINTER «> R2. 

CLEAR FOR EXP'D... 
...AND REC'D DATA... 
...AND FINAL STATUS. 

SET VECTOR... 
...LOWER CPU. 

INIT BYTE COUNTS CRCV»0. XMT-D... 
. ..XMIT 1ST BYTE... 

...AND COMMAND <RESET-IDLE/CRC-LATCH> . 
SYNC MODE ?? 
BR IF SO. 

. ; ASYNC -- 18 BYTES TRANSFERRED ?? 
BR IF SO. 

ELSE. HANG- AROUND. 

ASYNC UAIT LOOP TIME-OUT. 

SYNC - <EaF> RECEIVED ?? 
BR IF SO. 

ELSE. SAME-XE-CRAP. 

J >> ERROR 122. <EaF-SDLC> NOT RECEIVED 

;// 

> t BYTE COUNTS RIGHT ?? 
PROCEED IF SO. 

SENT THIS MANY... 



D8 



KXJll-CA FUNCTIONAL TEST 
no. 2 SrNC/ASYNC DATA 
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3514 
3515 



3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 



5528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 

3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 



023106 
023112 
023120 
023126 



110137 
012737 
012737 
104123 



023130 000240 



023132 
023136 
023142 
023146 
023150 
023152 
023156 
023162 
023166 
023174 
023202 
023204 
023206 

023210 
023214 
023216 
023220 
023222 
023224 
023226 
023230 
023232 
023240 
023244 
023246 

023250 
023254 
023256 
023260 



023264 
023264 
023272 
023276 
023302 
023306 
023310 
023312 
023314 
023316 
023320 
023322 
023324 



012701 
012702 
012703 
121312 
001415 
010337 
111337 
111237 
012737 
012737 
104124 
122322 
077121 

012700 

112015 

112015 

105710 

1007- 

0201 

001410 

010405 

112737 

013700 

005720 

000617 

022727 
022500 
001402 
000137 



012737 
106427 
012701 
012702 
112114 
112114 
077203 
000404 
002 
003 
005 
001 



001126 
047574 
045556 



000022 
037600 
061022 



001120 
001126 
001124 
047356 
045210 



022550 



044746 
044752 



044746 
044752 



MOVB Rl . $BDDAT 

MOV 0NEC3.EMADR 

MOV #EF10.ESA0R 
ERR0R*123 

;; BR 5$ 
NOP 

44$: MOV *18..R1 

MOV #FLT10.R2 

MOV «UFR1.R3 

45*: CMPB (R3).(R2) 

BEQ 46$ 

MOV R3.*G0A0R 

MOVB (R3).$B0DAT 

MOVB (R2).$G0DAT 

MOV *NEC4.EMADR 

MOV #eF2.ESA0R 
ERROR ♦ISA 

CMPB (R3)*.(R2)* 

SOB R1.45$ 



46*: 



5$: 
6*: 



000101 
023254 



022520 
022572 



023272 
000200 
023316 
000004 



047536 



7*: 
8$: 



MOV *C.CLR,R0 

MOVB (RO)*.(CHX) 

MOVB CRO)*.(CHX) 

TSTB (RO) 

BPL 6$ 

CMP CHX.CHA 

BEQ 7$ 

MOV CHA.CHX 

MOVB #'A.NECC 

MOV 8$.R0 

TST (RO)* 

BR 1* 

CMP #5. SET. (PC)* 
A. SET 

BEQ NEC. DMA 

JMP NEC. SYNC 



...AND RECEIVED THIS MANY. 

; >> ERROR 123. LOOP TIME-OUT. DATA XFER INCOMPLETE 



POINT TO XMT'D... 
...AND REC'D DATA BUFFERS. 
RECV'D SAhE AS THAT XMIT'D ?? 
BR IF SO, 



W 

>> ERROR 124. RECEIVED DATA INCORRECT 
// 

BUMP... 
...AND LOOP 

DONE. CLEAN-UP TABLE POINTER »> RO. 
POINT... 

...AND CLEAR (RESET) AS NECESSARY. 



BOTH CHANNELS DONE ?? 
BR IF SO 

EL?E. POINT TO CHAN A... 
...ADJUST ERROR PREFIX... 
...GET SET UP POINTER »> RO. 
. . .BUMP PAST THE CHAN-RESET. 
...AND GO 'ROUND ONCE. 

SYNC MODE DONE ?? 

SKIP IF SO... 
...ELSE. DO IT NOU. 



NOW ONCE MORE USING DMA (ASSUMING THAT 8016 IS ALIVF ftND UELL). 
THE 7201 CHIP IS STILL SET-UP FOR "CHAN A SYNC" MODE. 



001110 



NEC. DMA: 



025 
311 
151 
016 



023326 012700 061022 



1*: 



2$: 



3$: 



MOV 

MIPS 

MOV 

MOV 

MOVB 

MOVB 

SOB 

BR 

.BYTE 
.BYTE 
.BYTE 



#.*6,*LPERR 
#PR4 
#2$.R1 
#4 R2 

(Ri)*.(CHA) 

(R1)*.(CHA) 

R2.1* 

3* 

2. 025 

3, 311 
5. 151 



.BYTE 1. 016 



J LOOP HERE ON ERROR. 

ADJUST CHAN A SET-UP. 

POINT TO... 
...AND CHANGE. . . 
...THE FOLLOUING 4 REGISTERS. 

CHANGE BUS-INTERFACE TO <CHAN-A-DMA> 
ENABLE RECVR... 
...AND XMITTR. 

CHANGE INT CONTRX TO <RXI-0N-1ST-CHAR> 



MOV 



4eUFRl.R0 



t8 



KXJll-CA FUNCTIONAL TEST 
T10.2 SYNC/ASYNC DATA 
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3566 023332 


012701 


000020 




3567 023336 


005020 






3568 023340 


077102 






3569 023342 


012737 


024026 


000070 


3570 023350 


012737 


047551 


044742 


3571 023356 


005005 






3572 023360 


005065 


174454 




3573 023364 


012765 


000115 


174470 


3574 023372 


012765 


000074 


174454 


3575 023400 


012765 


000075 


174454 


3576 023406 


005065 


174446 




3577 023412 


005065 


174444 




3578 023416 


012765 


023450 


174440 


3579 023424 


012765 


023470 


174442 


3580 023432 


012765 


000240 


174454 


3581 023440 


012765 


000241 


174454 


3582 023446 


000420 






3583 023450 


001602 






3584 023452 


000000 


037600 




3585 023456 


040020 


175707 




3586 C23462 


000022 






3587 023464 


000020 


001201 




3588 023470 


001602 






3589 023472 


040020 


175703 




3590 023476 


000000 


061022 




3591 023502 


000024 






3592 023504 


000000 


001201 




3593 








3594 023510 


112714 


000300 




3595 023514 


005000 






3596 023516 


106400 






3597 023520 


032765 


020000 


174456 


3598 023526 


001001 






3599 023530 


077005 






3600 








3601 023532 


016500 


174462 




3602 023536 


001422 






3603 023540 


012737 


000024 


001126 


3604 023546 


160037 


001126 




3605 023552 


012737 


000022 


001124 


3606 023560 


166537 


174460 


001124 


3607 023566 


012737 


047574 


044746 


023574 


012737 


045556 


044752 


023602 


104125 






3608 








3609 023604 


012700 


037600 




3610 023610 


012701 


061022 




3611 023614 


012702 


000022 




3612 023620 


121011 






3613 023622 


001415 






3614 023624 


010137 


001120 




3615 023630 


111037 


001124 




3616 023634 


111137 


001126 




3617 023640 


012737 


047356 


044746 


023646 


012737 


045210 


044752 


023654 


104126 






3618 023656 


122021 







4$: 



5$: 



6(: 



8$ I 



MOV #16.. Rl 

aR (RO)* 

SOB R1..-2 

MOV #IXIT*2.NECV 

MOV #NECOM.EMPRE 

aR R5 

CLR CMDRCRS) 

MOV 0115.MMRCR5) 

MOV #40!34. CMDRCRS) 

MOV #41!34.CMDR(R5) 

CLR CHA1H(R5) 

CLR CHA2H(R5) 

MOV #4$.CHA2L(R5) 

WV #5*.CHA1L(R5) 

MOV *SCCCH1.C«)R{R5) 

MOV *SCCCH2. CMDRCRS) 

BR 6i 



1602 

0, FLTIO 

<K2I0!H0LD>, 175706*1 
18. 

SURQ, 1201 
1602 

<K2I0!H0L0>. 175702*1 

0, BUFRl 

20. 

0. 1201 



MOVB 


*<3*BIT6>,CCHA) 


CLR 


RO 


MTPS 


RO 


BIT 


«P.STAT1CR5) 


BtC 


8< 


SOB 


R0,7* 


MOV 


C0P1(R5).R0 


BEQ 


111 


MOV 


#20..$BD0AT 


SUB 


RO,$BDDAT 


WV 


»16.,»G00AT 


SUB 


C0P2(R5).IGDDAT 


MOV 


#NEC3.EMA0R 


MOV 


#EF10.ESADR 



ERROR* 125 

11*: MOV #FLT10.R0 

MOV #BUFR1,R1 

MOV «18..R2 

12$: CMPB CR0).CR1) 

BEQ 131 

MOV RI.IGOAOR 

MOVB CRO).»GODAT 

MOVB CRD.IBOOAT 

MOV flNEC4,EMA0R 

MOV #EF2.ESA0R 
ERR0R*126 

13$; CMPB CR0)*.CR1)* 



CLEAR RECEIVING BUFFER. 

CHANGE THE VECTOR CINTS DISMISSED). 
CHANGE THE ERROR PREFIX. 
SET-UP THE DMA ENGINE. 
CHIP RESET 

SET MASTER 'mode <VIIUAIT!CPINTLV!ENAB> . 

CLEAR lE'S... 
...BOTH CHANNELS. 

CLEAR HI CHAIN ADDRESS... 
. . .BOTH CHANNELS. 

SET CHAN 2 CXMT).,. 
...AND CHAN 1 CRCV) CHAIN ADDRESSES. 
; ISSUE START CHAIN COMMAND CHAN 1 CRCVR). 
! ISSUE START CHAIN COMMAND CHAN 2 CXMTR). 

CHAIN-LOAD ARA. ARB, OPK. AND CH MODE. 
FROM -- DATA TABLE. 

. TO 7201 XDBCLB). NO AUTO-INCR. 

OPK -- 18 BYTES. 

MODE -- SFT-REQ,IP-ON-TC!EOP.SNGL.BYTE BYTE. 

; FROM -- 7201 ROBCLB). NO AUTO INCR. 
TO BUFFER 1. 

OPK --- 20 BYTES C18 DATA ♦ 2 CRC). 

MODE -- SAME AS ABOVE C EXCEPT NO SFT-REQ). 

; COMMAND <RESET-IDLE/CRC-LATCH> . . . 

;...L0UER CPU. 

;...AND WAIT FOR CHANl (RCVR) DONE. 



; GET RCVR C CHANl) BYTES REMAINING. 
; BR IF NONE CALL RECEIVED). 

! ELSE. CALCULATE BYTES RCVD (CHANl OP COUNT). 

...VERSUS BYTES XMTD (CHAN2 OP COUNT). 

;\\ 

; >> ERROR 125, DMA DATA XFER INCOMPLETE 

;// 



CHECK DATA. 
BR IF OK. 



i^>> ERROR 126. RECEIVED DATA (DMA) INCORRECT 

;// 

BUMP... 



F8 



KXJli-CA FUNCTIONAL TEST 
T10.2 SrNC/ASYNC DATA 
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3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 



3653 
3654 
3655 
3656 
3657 
3658 



023660 077221 



023662 
023666 
023672 



023674 
023702 
023706 
023710 
023712 
023714 



023716 
023722 
023724 
023730 
023732 
023734 
023740 

023742 
023746 
023752 

023754 
023762 
023766 
023774 
023776 
024004 
024012 
024014 
024020 

024024 
024026 
024032 



005077 
005065 
000460 



112764 
116446 
006016 
103421 
006016 
103412 



120127 
001404 
112265 
105201 
000434 
112715 
000431 

116523 
062701 
000424 

116537 
112715 
116537 
100407 
012737 
012737 
104127 
112715 
112715 

005726 
112714 
000002 



155446 
174454 



000002 
000004 



000022 
000002 

000050 



177776 
000400 



177774 
000001 
177774 

047655 
045610 

000060 
000020 



000070 



SOB 

CLR 
CLR 
BR 



R2.12* 

S$CSRA 
CMDR(R5) 



...AND LOOP. 

ALL DONE FINALLY. CLEAR CSRA... 
...RESET DMA CHIP... 
...AND PROCEED TO MODEM CONTROL TEST, 



SYNC/ASYNC INTERRUPT HANDLER (DATA TESTS ONLY). 
BYTE COUNTS MAINTAINED IN Rl (L0=XMT. HI-RCV). 



000010 NEC. I: 



001130 

001132 

044746 
044752 



ITX: 



1^ 



IRX: 



ISEXT: 



1(: 
IXIT: 



MOVB 

MOVB 

ROR 

BCS 

ROR 

BCS 



CMPB 
BEQ 

MOVB 
INCB 
BR 

MOVB 
BR 

MOVB 

ADO 

BR 

MOVB 
MOVB 
MOVB 
6HI 
MOV 
MOV 



«,10(CHA) : INTERRUPT -- POINT TO SR2B. 

STAT.10(CHA),-(SP) S...AND PUSH VECT/COND. 



(SP) 
ISEXT 
(SP) 
IRX 



Rl,*18. 
1» 

CR2)*.XDB(CHX) 
Rl 

IXIT 

#<5*BIT3>,(CHX) 
IXIT 

RDB(CHX).(R3)* 

*<1*BIT8>.R1 

IXIT 



BIT 0 => "C"., 
...AND BR IF SPEC/EXT (1. 3. 5. OR 7). 
BIT 1 => "C". . . 
...AND BR IF RCVR (2 OR 6)... 
...ELSE FALL THRU (0 OR 4). 

XMIT -- ANYTHING LEFT ?? 
BR IF NOT. 
SEND NEXT BYTE... 
. . .AND COUNT IT. 

XMIT DONE, COMMAND <RESET-TXIP>. . . 
...AND RETURN 

RCVR STUFF THE CHAR... 
...AND COUNT IT. 



STAT(CHX).$BD0AT»2 
#1,(CHX) 

STATCCHX).$BDDAT»4 



1* 

«CC5.EMADR 
#EF11,ESA0R 
ERR0R*127 
MOVB *<6*BIT3>.(CHX) 
MOVB ♦<2*BIT3>.(CHX) 



SPECIAL/EXTERNAL. GET SRO. 
.AND SRI. 



TST 

MOVB 

RTI 



(SP)* 

♦<7*BIT3>,(CHA) 



JUST RETURN IF <SDLC-EOF>. 
;\\ 

s >> ERROR 127, UNEXPECTED EXT OR ERROR INTERRUPT 

;// 

COrtlAND <RESET-ERROR>... 
...AND <RESET-EXTERNAL>. 

FIX THE STACK. 
SIGNAL <END-OF-INTERRUPT>. 
...AND RETURN. 



G8 



KXJll-CA 
T10.3 



FUNCTIONAL TEST 
nOOEM CONTROLS 



3660 



3661 
'i662 
3663 

3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 



3690 
3691 
3692 
3693 
3694 



3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 



3704 
3705 



024034 



024034 
024034 
024042 
024046 
024050 
024054 
024060 
024064 
024070 
024074 
024100 
024104 
024110 
024116 
024124 
024126 
024130 



024132 
024136 
024142 
024146 
024152 
024156 
024160 
024162 
024170 
024176 
024200 
024206 
024210 
024216 
024220 
024220 
024226 
024234 



024236 
024242 
024250 
024254 
024256 
024260 
024266 
024274 
024276 
024304 



000005 



012737 
106427 
010405 
062705 
112714 
112715 
004737 
112714 
112715 
112714 
112715 
012737 
012737 
005003 
005000 
106400 



005037 
005037 
112714 
112714 
105737 
001010 
077004 
012737 
012737 
104130 
032737 
001404 
032737 
001007 

012737 

012- 

1041i* 



005037 
112777 
105737 
001010 
077004 
012737 
012737 
104132 
032737 
001404 



024042 
000200 

000010 
000030 
000030 
037564 
000021 
000021 
000005 
000005 
047721 
024546 



001126 
001130 
000005 
000002 
001126 



047746 
045206 

000040 

000010 



050004 
45646 



001130 
000010 
001130 



047746 
045206 
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;*TEST 10.3 MODEM CONTROLS 
T10.3:: 

! REDEFINE R5 AS CHAN B POINTER. 



001110 



CHB- ¥5 
NEC.MDM: 



1$: 



044742 
000070 



2$: 



MOV 

MTPS 

MOV 

ADO 

MOVB 

MOVB 

CALL 

MOVB 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

CLR 

CLR 

MTPS 



; LOOP HERE ON ERROR. 
RAISE CPU. 



SET CHAN B POINTER. 
<CHAN RESET). 



*.*6.$LPP"'" 
9PR4 
CHA.CHE 
*10.O€ 

*<3*BIT3>.(CHA) 
#<3«BIT3>.(CHB) 
DlOO : DELAY lOOUS (MORE OR LESS). 

#<2*BIT3>.'1,(CHA) s <RESET-EXT>. POINT TO CRl. 
#<2*BIT3>!1.(CHB) 

*5.(CHA) ;...AND SET <CAV!INT-ON-EXT>. 

#5.(CHB) 



«NECMM.EMPRE 
«NEC.EX.NECV 
R3 
RO 
RO 



SET ERROR PREFIX. 
SET THE VECTOR. 

••* DEBUG. COUNT INTERRUPTS IN R3. 
250 MSEC KEEP- ALIVE TIMER. 
LOWER CPU. 



FIRST, TEST <REQ-T0-SEND>. <CLR-T0-SEND> AND <RCVR READY>. 



044746 
044752 

001126 

001126 



044746 
044752 



155064 



044746 
044752 



31: 



41: 



5$: 



6*: 



CLR ♦BDDAT 

CLR ♦B00AT*2 

MOVB 05. (CHAD 

MOVB «2.CCHA) 

TSTB IBOOAT 

BNE 5« 

SOB R0,4» 

MOV «NEC6.EriADR 

MOV «N0SI6.ESA0R 
ERR0RU30 

BIT «eiT5.*B00AT 

6EQ 61 

BIT «BIT3.*B0DAT 

BNE 7$ 

MOV «NEC7,EMA0« 

MOV «EF12.ESA0R 
ERR0R«131 



CLEAR A SPACE FOR SRO(A)... 
...AND SRO(B). 

POINT TO CR5(A)... 
...AND SET <REQ-TO-SENO> . 

SHOULD GET SRO(A) STATUS INTERRUPT. 

BR IF SO. 

;\\ 

; >> ERROR 130. STATUS INTERRUPT NOT RECEIVED 
SHOULD HAVE <CLR-TO-SENO>. . . 
;,..AND <RCVR-READY>. 



\\ 

» ERROR 131. STATUS URONG UITH REQ-TO-SENO SET 



NEXT. TEST CSRA<TT108/2> AND <DATA-MOOE> BITS. 



71: 
81: 



000010 001130 9$: 



CLR IB00AT«2 

MOVB «BIT3.aiCSRA 

TSTB IB0DAT*2 

BNE 9* 

SOB R0.8$ 

MOV #NEC6.EMADR 

MOV «N0SIG,ESA0R 
ERR0R*132 

BIT «6IT3. IBOOAT ^2 

BEQ 101 



SET <TT108/2>, 

SHOULD GET SROCB) STATUS INTERRUPT. 
BR IF SO. 

\\ 

>> ERROR 132. STATUS INT NOT RECEIVED 

// 

SHOULD HAVE <DATA-MOOE> . . . 



H8 



KXJll CA FUNCTIONAL TEST 
no. 3 MODEM CONTRXS 
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3706 
3707 
3708 



3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 



3718 
3719 
3720 
3721 
3722 



3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 



024306 
024314 
024316 
024316 
024324 
024332 



024334 
024340 
024346 
0241'r 
0243"' 
024356 
024364 
024372 
024374 
024402 
024404 
024412 
024414 
024414 
024422 
024430 



3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 



024432 
024440 
024444 
024450 
024454 
024460 
024464 
024470 
024476 
024500 
024506 
024510 
024510 
024516 
024524 
024526 
024532 
024536 
024544 



024546 
024550 
024554 
024560 
024566 
024574 
024600 



032737 
001407 

012737 
012737 
104133 



005037 
052777 
105737 
001010 
077004 
012737 
012737 
104134 
032777 
001404 
032737 
001007 

012737 
012737 
104135 



042777 
004737 
005077 
004737 
112714 
112714 
004737 
032737 
001004 
032737 
001407 

012737 
012737 
104136 
112714 
112715 
012737 
000416 



005203 
112714 
112715 
116437 
116537 
112714 
000002 



000040 001130 



050040 
045646 



001130 
000020 
00113C 



047746 
045206 

000001 

000040 



0501 IC 
045646 



000010 
037564 
154664 
037564 
000005 
000000 
037564 
000050 

000050 



050165 
045646 

000030 
000030 
002542 



000020 
000020 
177774 
177774 
000070 



044746 
044752 



154766 

044746 
044752 

154734 

001130 



4746 
044752 



001126 
001130 



044746 
044752 



000070 



001126 
001130 



10«: 



BIT «BIT5.»B00Af.2 
BEQ 11 » 

MOV «NEC8.EMA0R 
MOV «EF12.ESA0R 
ERR0R*133 



.AND NOT <INC0niNG CALL>. 



; >> ERROR 133. STATUS URONG WITH TT108/2 SET 



; NEXT. TEST CSRA<TERM-IN-SERV>. CSRB<TT142> AND < INCOMING-CALL >. 



12*: 



13$: 



14$: 



CLR JBD0AT*2 

BIS 96IT4.aiCSRA 

TSTB $BDDAT^2 

BNE 13$ 

SOB R0.12$ 

MOV «NEC6.EMA0R 

MOV «N0SIG.ESADR 
ERROR ♦134 

BIT «IT0.a$CSR8 

BEQ 14$ 

BIT <«IT5.$B00AT»2 

BNE 15$ 

MOV #NEC9,EMADR 

MOV *EF12.ESA0R 
ERROR* 135 



; SET <TERM-IN-SERV>. 

: SHOULD GET ANOTHER SR0C6) CHANGE. 



;\\ 

; >> ERROR 134. STATUS INT NOT RECEIVED 
:// 

SHOULD HAVE <TT142> IN CSRB... 



.AND <INC0MING-CALL>. 



\\ 

» ERROR 135, ST'i.TUS URONG WITH TERM-IN-SERV SET 

// 



; FINALLY, TURN ALL THAT STUFF OFF !!!!! 
154674 i5$: 



16$: 



BIC 
CALL 
CLR 
CALL 

Move 

MOVE 

CALL 

BIT 

BNE 

BIT 

BEQ 



«6IT3.a$CSRA 
DlOO 
S$CSRA 
0100 
«5.CCHA) 
«0.(CHA) 
0100 

«eiT5!BIT3.$B0OAT 
16» 

«eiTS!BIT3,$BD0AT*2 
17$ 



CLEAR <TT108/2> 

DELAY. 
CLEAR <TERM-IN-SERV>. 

DELAY. 
POINT TO CR5(A)... 
..AND CLEAR <REQ-TO SEND>. 
DELAY. 

J <CS!RR> IN SRO(A) SHOULD BE Cf'? 



.AND <IC!DM> IN SRO(B) AS UELL. 



MOV «CC10.EMA0R 

MOV #EF12.ESA0R 
ERR0R*136 

17$: MOVB ♦<3»BIT3>,(CHA) 

MOVB ♦<3*BIT3>.(CHB) 

NEC. END: MOV «ISMISS.NECV 

BR TSTll 



: » ERROR 136. S^^S^US URONG UITH EVERYTHING OFF 

ALL DONE. RESET THE CHIP... 

:...AND THE VECTOR. 
J ; NEXT TEST. 



EXTERNAL (MODEM CONTRXS) INTERRUPT HANDLER. 
NEC. EX 



INC 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
RTI 



R3 s *** DEBUG. COUNT THE INTERRUPTS. 

♦<2*8IT3>.(CHA) ; COMMAND < RESET -EXTERNAL). 
#<2*8IT3>.(CHB) ; DITTO 
STAT(CH*).$BDOAT ; GET SRO(A)... 
STATt:HB).$BDDAT*2 S...AND SRO(B). 
♦<7*8IT3>,(CHA) J SIGNAL <END-OF -INTERRUPT >. 



18 

KXJll-CA FUNCTIONAL TEST 



Til 



PARALLEL I/O PORT Z8036 
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3754 



024602 
024604 
024610 
024616 
024622 
024630 
024632 
024636 
024640 
024642 
024646 
024652 
024654 

024706 

3755 
3756 
3757 
3758 

3759 024706 

3760 024714 

3761 024722 

3762 024726 

3763 024732 

3764 024736 

3765 024744 

3766 024750 

3767 024752 

3768 024756 

3769 024764 
3770 

3771 024766 

3772 024772 

3773 024776 

3774 025000 

3775 025004 

3776 025006 

3777 025010 

3778 025014 
025022 
025030 

3779 025032 

3780 025034 

3781 025036 

3782 025042 
3703 

3784 025044 

3785 025050 
025056 
025064 

3786 025066 



000004 
012706 
012737 
005037 
032777 
001006 
005777 
000240 
102002 
000137 
104415 
000415 
040 



012737 
012737 
012704 
013705 
005037 
012737 
112715 
000240 
111537 
023737 
000410 

005037 
112715 
000240 
111537 
000240 
001411 
010537 
012737 
012737 
104137 
005725 
077424 
005037 
000413 

010537 
012737 
012737 
104140 
000137 



001100 

177777 002426 
044742 

000400 154310 
154472 



:*TEST 11 PARALLEL I/O PORT Z8036 

TSTll: SCOPE 



026220 
024654 

040 



024714 
025044 
000060 
001330 
001126 
000001 
000001 

001126 
001124 



001124 
177777 

001126 



001120 
050257 
045210 



002426 



001120 
050232 
045230 

026046 



120 



MOV 

nov 
aR 

BIT 
BNE 

TST 
NOP 
BVC 

30050$: JMP 
30051$: T$NAr€. 
BR 

.ASCIZ 
.EVEN 

30052$: 



*STACK.SP 
#-l.TRAP4X 
EMPRE 
.3IT8.aSUR 
30051* 

a$Pio 

300^!' 

TSTxc 

.♦4 

30052$ 



\ PARALLEL I/O PORT Z8036\ 



SET A CLEAN STACK. 
DISMISS BUS CRRORS. 
CLEAR ERROR PREFIX. 
FORCED ENTRY SELECTED ?? 
BR IF SO. 

CHECK FOR VALID $PIO. 

SKIP NEXT IF OK. 
BYPASS. 

PRINT TEST NUMBER AND NAME.. 
.AND SKIP OVER THE ASCII. 



001110 
002426 



001124 
001126 



ZILOG 8036 CHIP HAS 48 REGISTERS. 

RESET THE CHIP AND VERIFY THAT ALL REGISTERS RETURN ZERO. 



044746 
044752 



044746 
044752 



MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
M0V8 
240 
MOVB 
CMP 
BR 

1$: aR 
MOVB 
240 
MOVB 
240 

2$: BEQ 
MOV 
MOV 
MOV 
ERR0R*137 
3$: TST (R5)+ 
SOB R4.1$ 
aR TRAP4X 
BR PIOT 

4$: MOV R5.$GDADR 

MOV «PI01.EMA0R 
MOV «LA16.ESA0R 
ERR0R»140 
JMP ENDPIO 



#.*6.$LPERR 
*4$.TRAP4X 
M8..R4 
$PI0,R5 
$BDOAT 
«1.$G0DAT 
*1.(R5) 

CR5),$BD0AT 
$GODAT.$BDDAT 
2$ 

$GODAT 
#-l,CR5) 

(R5).$BDDAT 

3$ 

R5.$G0A0R 
#PI02,EMA0R 
«eF2,ESA0R 



! LOOP HERE ON ERROR. 

SET TRAP RETURN. 

CHECK 48 REGISTERS., 
...STARTIKr ' TRE. 



; SET "CHIP-RESET" IN MICR. 
; IF IT TRAPS. WE'RE DEAD. 
; READ IT BACK... 

SHOULD SEE THE 1 BIT. 
; CHECK IT AT 2$. 

5 EXPECT 0 FROM ALL THE REST. 
; WRITES SHOULD BE IGNORED... 

: . . .AND READS RETURN ZERO. 

; BR IF OK. 

\\ 

>> ERROR 137, RESET STATE INCORRECT 

// 

NEXT ADDRESS... 
..AND LOOP 'TIL DONE. 
THEN. RESET TRAP CATCHER... 
..AND GO ON. 



: >> ERROR 140. BUS ERROR ON PIO ADODRESS 

!// 

NEXT TEST. 



J8 

KXJll-CA FUNCTIONAL TEST 
Tll.l COUNTER/TIMERS 



3788 



3789 
3790 
3791 
3792 
3793 
3794 
3795 
37% 
3797 
3798 
3799 
3600 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3618 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3626 
3827 
3826 



3629 
3630 
3831 
3832 
3833 
3834 



3835 
3836 
3837 



025072 



025072 
025076 
02510i? 
025104 
025110 
025112 
025114 
025120 
025126 



025134 
025140 
025146 
025154 
025162 
025166 
025172 
025176 
025204 
025206 
025212 
025216 
025222 
025224 
025230 
025232 
025234 
025242 
025250 
025252 
025254 
025260 
025262 
025264 
025266 
025274 
025302 
025304 
025306 
025310 



000000 
000002 
000010 
000070 
000024 
000054 
000040 



013705 
142715 
M0504 
012703 
005024 
077302 
11P715 
112/65 
112765 



062705 
012737 
112737 
012737 
012706 
010537 
106427 
012737 
005000 
012701 
112715 
112715 
000240 
132715 
001011 
077004 
012737 
012737 
104141 
000445 
132715 
001423 
077004 
077105 
012737 
012737 
104142 
000430 
000240 
012737 



001330 
000001 

000060 



000^00 
000104 
000160 



000024 
050311 
000061 
025162 
001100 
001120 
000200 
025306 

000004 
000040 
000306 

000001 



050326 
045206 



000001 



050342 
045206 
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;*1£ST 11.1 COUNTER/TIMERS 
Tll.l:: 



MIC* 000 

MCC- 002 

CTV= 010 

CTMS- 070 

CTCS= 024 

CTTC- 054 

CTCC* 040 



MASTER INTERRUPT CONTROL REG. 

MASTtR CONFIGURATION CONTROL REG. 

TIMER(S) INTE*>^UPT VICTOR REG. 

1ST (OF 3) TIi£R MOOt iPEC REG. 

1ST (OF 3) TIMER CMD/STATUS REG. 

1ST (OF 6) TIME CONSTANT REG (3 PAIR). 

1 ' (OF 6) CURRENT COUNT REG (3 PAIR). 



VERIFY THAT EACH TIMER FUNCTIONS AS ADVERTISED. 
CHIP IS "RESET" ON ENTRY AND EXIT. 



000010 
000002 



044742 

050323 
001110 



000104 



044746 
044752 



044746 
044752 



050356 044746 



PIOT: MOV *PI0.R5 

BICB *1.(R5) 

MOV R5.R4 

MOV #48.. R3 

II: CLR CR4)« 

SOB R3.1I 

MOVB #200. (R5) 

MOVB #PEVNT.CTV(R5) 

MOVB #160.MCC(R5) 



ADD #CTCS.R5 

MOV #PITN.EMPRE 

MOVB #'1.PITX 

MOV #.*6,*LP£f(R 

MOV #STACK.SP 

PIOTl: MOV R5,$G0ADR 

MIPS #PR4 

MOV #3I.PEVNT 

CLR RO 

MOV #4,R1 

MOVB *40.(R5) 

MOVB #306. (R5) 
240 

1$: BITB #1,(R5) 

BNE 2» 

SOB RO.ll 

MOV #PI03.EMA0R 

MOV 0NOSIG.ESADR 
ERROR* 141 

BR 7$ 

2$: BITB #1,(R5) 

BEQ 4$ 

SOB R0.2I 

SOB Rl,2» 

MOV «PI04.EnA0R 

MOV «NOSIG.ESADR 
ERR0R«142 

BR 7$ 
3»: NOP 

MOV «PI05.EnAOR 



GET BASE ADDRESS. 
CLEAR "CHIP-RESET". 



:...AND CLEAR ALL REGISTERS. 

: SET "MASTER INT ENAB". 
; SET TO VECTOR THRU "PEVNT". 
; ENABLE ALL 3 TIMERS... 
;...CTMS = 0 - PULSE-OUT. ONCE-ONLY. 
;...CTTC - 0 « TIME K 65536. 
; NOW RAISE R5 TO 1ST TIMER CSR. 
i SET ERROR PREFIX. .. 
;...AND INIT ASCII TIMER NUMBER. 
LOOP HERE ON ERROR. 

SAVE CURRENT CSR ADDRESS. 
RAISE CPU TO PIO LEVEL. 
SET VECTOR. 

; SET A 1 SECOND KEEP-ALIVE TIMER. 
; CLEAR "IUS!IP"... 
;...AND SET "lE'GCBiTCB". . . 

TIMER SHOULD TAKE-OFF !! 
: TIMER RUttilNG CCIP«1) ?? 
: BR IF SO. 

• -W 

W » ERROR 141, TIMER DIDN'T START 

;:// 
. ABQpj 

I TIMER DONE CCIP-0) ?? 
: BR IF SO. 



} » ERROR 142, TIMER NEVER STOPS. 
.// 

ABORT. 

INTERRUPT - SHOULD HAVE BEEN MASKED. 
sW 



1^0 

KXJll CA FUNCTIONAL TEST 
Tll.l COUNTER/TIfCRS 
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3838 
3839 
3840 
3841 
3842 
3843 



3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 



025316 
025324 
025326 

025330 
025336 
025342 
025344 
025352 
025360 
025362 

025364 
025366 
025372 
025376 
025400 
025404 
025412 

025414 
025422 



012737 
104143 
000416 

012737 
106427 
000240 
012737 
012737 
104144 
000401 

022626 
012715 
012715 
005725 
105237 
123727 
101665 

112777 
012737 



045206 044752 



025364 
000000 

050416 
045206 



000040 
000160 

050323 
050323 



000001 
002542 



MOV #NOSIG.ESADR 
ERROR ♦143 
BR 6i 



000104 4$:5$: 



044746 
044752 



MOV 
MIPS 
240 
MOV 
MOV 



«6$.PEVNT 
«>R0 

*PI06.EMA[)R 
*NOSIG.ESADR 



ERRC«*144 



>> ERROR 143. PIO INTERRUPT LEVEL INCORRECT. 

::// 



NOW, CHANGE VECTOR... 

..LOUER THE CPU... 

..AND LET INTERRUPT COME IN. 

\\ 

>> ERROR 144. TIMER INTERRUPT NOT RECEIVED. 

;// 



6$: 
7*: 



0.0063 



153706 
000104 



SKPl 






CMP 


(SP)+.(SP)+ 


INTERRUPT -- FIX THE STACK. 


MOV 


#40, (R5) 


CLEAR ''IUS!IP!GCB"... 


my 


*160,(R5) 


. . .AND "IE" (Tir«R OFF). 


TST 


(R5)* 


BUMP TO NEXT TIMER CMD/STAT. 


IfCB 


PITX 


...BUMP ASCII TOO... 


CMPB 


PITX.#'3 




BLOS 


PIOTl 


...AND LOOP 'TIL ALL 3 DONE. 


MOVB 


*1,3$PI0 


THEN, RESET THE CHIP... 


MOV 


#OISMISS.PEVNT 


...PEVNT VECTOR... 




-...AND FALL THRU TO DATA TEST 



L8 

KXJll-CA FUNCTIONAL TEST 
Til. 2 DATA PORTS 



3856 



3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
38% 
3897 
3898 
3899 
3900 

3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 



025430 



025430 
025434 
025440 
025446 
025454 
025462 
025470 
025476 
025504 
025512 
025520 
025526 
025534 
025542 
025550 
025556 
025560 
025566 
025574 
02S602 
025610 
025616 
025616 
025624 
025630 
025634 
025642 
02564b 
025652 
025654 
025656 
02566"^ 
025666 
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:*TEST 11.2 DATA PORTS 
Til. 2:: 



000004 
000020 
000032 
000100 
000102 
000006 
000022 
000034 
000120 
000122 
000014 
000036 
000140 
164377 
165400 



PAV« 004 

PACS« 020 

PAOB* 032 

PAMS- 100 

PAHS= 102 

PBV» 006 

PBCS- 022 

PBOB- 034 

PBMS= 120 

PBHS= 122 

PCDO- 014 

PCDe= 036 

XCVR» 140 

AI.BO= <350*BIT8>!377 

AO.BI* <353*BIT8>!0 



PORT A VECTOR... 
. ..CMD/STATUS... 
...DATA BUFFER... 
. . .MODE. . . 

...and handshake spec, 
port b vector. . . 
...ct«/status... 
...data buffer... 

;;!and handshake spec, 
port c data direction. . . 
...and buffer (handshake bits). 
1st register above the chip holds... 
. ..xcvr control bits ttl/a(in)!bc0ut). 
ditto ttl/a(0ut)!b(in). 



*** DATA PORTCS) TEST REQUIRES EXTERNAL LOOP-BACK CONNECTOR ♦♦• 
CHIP IS "RESET" ON ENTRY AND EXIT. 



01 '^70S 












; GET B'SE ADDRESS. 


1 4P71 S 
X**e r xj 












• ri FAR "PHTP-RFSFT" 


Uxc IOj 










dPTHAV PAVfRS') 




012765 


000164 


000006 




MOV 


#PI0BV.PBVCR5) 




012737 


026050 


000160 




MOV 


MI.PIOAV 




012737 


026064 


000164 




MOV 


#6I.PI0BV 




012737 


050445 


044742 


PIODl: 


MOV 


#PORTBA.EMPRE 


: SET ERROR PREFIX CB*>A). 


112765 


000100 


000100 




novB 


«100.PAHS(R5) 


5 SET PORT A INPUT... 


112765 


000000 


000102 




novB 


«0OO.PAHSCR5) 


INTERLOCKED HS... 


112765 


000300 


000020 




novB 


«300.PACS(R5) 


:...INT ENABLED. 


112765 


000200 


000120 




novB 


•200.P8HS(R5) 


! SET PORT B OUTPUT... 


112765 


000000 


000122 




MOVB 


«000.P6HS(R5) 


!... INTERLOCKED HS... 


112765 


000300 


000022 




MOVB 


#300.PBCSCR5) 


S...INT ENABLED. 


112765 


000200 


000022 




MOVE 


#200.PBCSCR5) 


: SET OUTPUT "IP" TO PRIME THE 


012765 


164377 


000140 




MOV 


#AI.B0.XCVRCR5) 


; SET XCVR CONTROL BITS. 


000417 








BR 


PI0D3 


; CHANGE ERROR PREFIX CA->B). 


012737 


050464 


044742 


PI002: 


MOV 


«P0RTAB,EMPRE 


112765 


000200 


000100 




MOVB 


#200,PAMSCR5) 


: CHANGE PORT A TO OUTPUT... 


112765 


000200 


000020 




MOVB 


*200,PACSCR5) 


s,..AND SET "IP". 


112765 


000100 


000120 




MOVB 


#100.PBMS(R5) 


; CHANGE PORT B TO INPUT. 


012765 


165400 


000140 


PI003: 


MOV 


♦A0.BI.XCVR(f?^) 


; CHANGE XCVR CONTROL BITS. 


012737 


025624 


001110 




MOV 


#.*6.ILPERR 


;: LOOP HERE ON ERROR. 


012706 


001100 






MOV 


#STACK.SP 




106427 


000200 






MIPS 


«PR4 


; RAISE CPU. 


112765 


000377 


000014 




MOVB 


#377,PCD0(R5) 


5 PORT C DIRECTION ALWAYS "IN" 


012704 


061022 






MOV 


«eUFRl,R4 




012700 


000020 






MOV 


#16., RO 


: CLEAR SOME FREE SPACE. 


005024 






1$: 


CLR 


(R4)* 


077002 








SOB 


RO.lt 


; RCV BUFFER POINTER -> R4. 


012704 


061022 






MOV 


«eUFRl.R4 


012703 


037600 






MOV 


#FLT10,R3 


{ XMT BUFFER POINTER »> R3. 


005037 


037576 






aR 


BYTES 


: aEAR SnE COUNTERS. 



f'18 

KXjll CA FlJNCTIOML TEST 
Til. 2 DATA PWTS 
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005037 


001 124 






CLR 


JGDOAT 




0050^7 


001 12f. 






CLR 


$BDOAT 




1 1P71S 


000200 






HOVR 


*200 fR5) 


3914 02S706 


1 12765 


000224 


000002 




novB 


#224 MCC(R5) 


3915 025714 


116500 


000032 






MOVB 


PADB(R5).R0 : 




1 16500 


000034 






HOVB 


PBD6CR5) RO 


3917 f)?57?4 




000000 






MTPS 


4PR0 : 


3918 025730 


005002 








CLR 


R2 : 


3919 025732 

«/7X7 \*r^J % -Jtm 




037576 


011022 


2%: 


CMP 


B YTES . *< 18 . *BIT8> 


3920 025740 


001417 








6EQ 


31 : 


3921 025742 


077205 








SOB 


R2.2$ 


3922 025744 


000240 








240 




3923 025746 


113737 


037576 


001124 




MOVB 


BYTES. $GOOAT i 


3924 025754 


113737 


037577 


001126 




rxm 


BYTES*1.*B00AT ; 


3925 025762 


012737 


050503 


044746 




MOV 


«PIG7,EMA0R : 


025770 


012737 


045556 


044752 




MOV 


flEFlO.ESADR : 


025776 


104145 








ERR0R*145 : 


3926 026000 


000240 






3$: 


NOP 




3927 026002 


000240 








NOP 




3928 026004 


105765 


000100 






TSTB 


PAMSCRS) ; 


3929 026010 


100404 








BMI 


4$ : 


3930 026012 


105015 








CLRB 


(R5) ; 


3931 026014 


105065 


000002 






CLRB 


MCCCRS) : 


3932 026020 


000657 








BR 


PI002 : 


3933 














3934 026022 


112715 


000001 




4$: 


MOVB 


#1.(R5) : 


3935 026026 


005065 


000140 






CLR 


XCVR(R5) ; 


3936 026032 


012737 


002542 


000160 




MOV 


DISMISS, PIOAV ; 


3937 026040 


013737 


000160 


000164 




MOV 


^TOAV.PIGBV 


3938 026046 








ENDPIO: 






026046 


000464 








BR 


TST12 : 



3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 



PORT INTERRUPT HANDLER(S). 



026050 
026054 
026060 
026062 

026064 
026070 
026074 
026076 

026100 
026102 
026110 
026112 
026114 
026120 
026122 
026130 

026132 
026134 
026136 



012700 
105765 
100407 
000423 

012700 
105765 
100401 
000415 

060500 
123727 
001404 
112310 
105237 
000433 
112760 
000427 

060500 
111014 

105237 



000032 
000100 



000034 
000120 



03/5~6 000022 
037576 

000240 177766 



037577 



AI: 
BI: 
11: 

2$: 
3$: 



.ENABL 


LSB 


MOV 


«PAD6.R0 


TSTB 


PAMS(R5) 


era 


11 


BR 


3$ 


MOV 


«P6DB.R0 


TSTB 


PBHSCRS) 


BTU 


11 


BR 


3$ 


ADO 


R5.R0 


CMPB 


BYTES. #18. 


BEQ 


2$ 


novB 


(R3)».(R0) 


INCB 


BYTES 


BR 


5* 


MOVB 


#240.-12CR0) 


BR 


51 


ADO 


R5.R0 


MOVB 


''R0).(R4) 


INCB 


TES^l 



102 



SET "MIE"... 

...AND ENABLE ALL THREE PORTS. 
??? DUMMY READ (FLUSH)... 
.. .BOTH OB'S ??? 

lOUER cku... 

...DATA SHOULD START TO FLOW. 
•18. ; 18 BYTES TRANSFERRED ?? 

BR IF SO. 

HANG- AROUND... 
...FOR A UHILE. 

SENT... 

. ..VS RECEIVED. 
!\\ 

: >> ERROR 145. LOOP TIME-OUT. DATA XFER INCOMPLE"'*^ 
;// 



PORT A SENDING ?? 

ALL DONE IF SO. 

ELSE. CLEAR MASTER... 
...CONTROL REGISTERS... 
...AND GO 'ROUND ONCE MORE. 

DONE. RESET THE CHIP... 
. ..XCVR CONTROLS... 
...AND RESTORE VECTORS. 



:...AND TAKE NEXT TEST. 



PORT A - GET DATA BUFFER INDEX. 
CHECK DIRECTION. 

OUTPUT 

INPUT 

PORT B - DITTO. 

OUTPUT 
INPUT 

OUTPUT — SET DB POINTER. 
ANY BYTES LEFT ?? 
BR IF NOT. 

ELSE. SEND NEXT BYTE... 
...BUMP THE COUNT... 
...AND RETURN. 

UHEN XMIT DONE, CLEAR "IP"... 
...AM) RETURN. 

INPUT — SET DB POINTER. 
STORE THE BYTE... 
...AND BUMP THE COUNT. 



N8 



KXJll CA FUNCTIONAL TEST 
Til.? DATA PORTS 
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3%e 

3%7 
3%8 
3%9 
3970 



3971 
3972 
397j 
3974 
3975 
3976 



026142 
026146 
026150 
026154 
026160 
026166 
026174 
026202 
026204 
026206 
026210 
026216 



121464 

001416 
010437 
111437 
116437 
012737 
C12737 
104146 
00024O 
005204 
112760 
000002 

000000 



156556 

001120 
001126 
156556 
047356 
045210 



000140 



001124 
044746 
044752 

4$: 

177766 5t: 



CMPB 
BEQ 
MOV 
MOVB 
MOVB 
MOV 
MOV 



(R4).FLT10 BUFR1(R4) : COMPARE DATA XMTD/RCVD. 
4$ ; BR IF IT'S RIGHT. 

R4.*GDA()R 
(R4).$BDDAT 

FLT10-BUFR1(R4) , $GODAT 



PURFAIL 



ERROR 4 146 

NOP 
INC 
MOVB 

RTI 
.OSABL LSB 



«PI08,EMADR 
#eF2.ESADR 



R4 

#140. 12(R0) 



:\\ 

5 >> ERROR 146. DATA INCORRECT 

:// 

BUMP RCVR POINTER. 
COMMON EXIT. CLEAR "lUS"... 
. . .AND RETURN. 



B9 



KXJll CA FUNCTIONAL TEST 
Tli.2 DATA PORTS 

3978 
3979 



3980 
3931 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 



4013 
4014 
4015 
4016 
4017 



026220 
026222 
026230 
026232 
026236 
026244 
026250 
026252 
026256 
026262 
026264 

026306 



000004 
032737 
001410 
012706 
012737 
005037 
000402 
000137 
104415 
000411 
040 
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QIRAK2.MAC 19-NOV 85 

: *************************************************************** 

♦TEST 12 Q-BUS INTERRUPT 



000340 177524 

001100 

177777 002^26 
044742 

027412 
026264 



040 



121 



026306 012737 026314 001110 



026314 
026320 
026324 
026330 
026334 
026340 
026342 
026344 
026352 



026356 
026364 
026372 
026374 
026402 
026410 
026412 
026420 
026426 
026432 
026436 



106427 
005037 
013705 
010537 
011537 
005000 
077001 
012777 
011537 



000240 
002426 
001314 
001120 
001124 



000144 152744 
001126 



000130 
040000 
020000 
010000 
002000 

052737 
032737 
001007 
012737 
012737 
104147 
042737 
052737 
005037 
052715 
106427 



040000 
040000 

027157 
045210 

040000 
030000 
001352 
030000 
000000 



001124 
001126 

044746 
044752 

001124 
001124 



TST12: 



30053$: 
30054* : 



300551: 



SCOPE 
BIT 
BEQ 

nov 

MOV 
CLR 
BR 
JMP 

TINAME. 
BR 

.ASCIZ 
• EVEN 



»340.3«K2CSRC 
30053* 
#STACK,SP 
* 1,TRAP4X 
EMPRE 
30054* 
TST13 
.♦4 

30055* 

\ Q BUS INTERRUPTX 



IS THE ID SWITCH IN POSITIONS 0 OR 1? 
SKIP THIS TEST IF IT IS 
SET A CLEAN STACK. 
DISMISS BUS-ERRORS. 
CLEAR ERROR PREFIX. 
SKIP NEXT. 

gyp ASS 

PRINT tEST NUTBER AND NAME... 
.AND SKIP OVER THE ASCII. 



VERIFY THAT THE QIR CAN INTERRUPT THE ARBITER. AhO THAT 
THE POST-INTERRUPT PROCESS WORKS AS ADVERTISED. 

MOV ».«6,*LPERR LOOP HERE ON ERROR. 

FIRST, WRITE THE &IR AND SEE WHAT HAPPENS. 



2*: 



MTPS 


«PR5 


RAISE CPU. 


CLR 


TRAP4X 




MOV 


*CSR,R5 


CSR POINTER (TO SPEED THINGS UP). 


MOV 


R5.*GDA0R 


CSR ADDRESS... 


MOV 


(R5).*G0DAT 


...AND EXP'D STATUS. 


CLR 


RO 


TIMER. 200nS (MORE OR LESS). 


SOB 


RO.. 


DELAY — ENSURE TTY OUTPUT IS DONE. 


MOV 


«QIRV.S*QIR 


WRITE A VECTOR IN QIR<9:2>. 


MOV 


(R5).*BD0AT 


GET CSR. QIREQ SHOULD BE SET. 



NOW, BRQ4 SHOULDN'T GET POSTED UNTIL/UNLESS THE ENABLE IS SET. 
ON BIACK. REQUEST GETS aEARED AND IF ENABLED POSTS A 

LOCAL INTERRUPT THRU VECTOR 130 (AT PRI 4). 



6lACKV» 

BRQ- 

ACKEN- 

BRQEN- 

BIEN« 

QITl: 



1*: 



TBIACK 

BIT14 

8IT13 

BIT12 

BITIO 

BIS 
BIT 
BNE 
MOV 
MOV 



«6RQ.*GD0AT 
«6RQ.*BDDAT 
1* 

«QI2.EMA0R 
«EF2.ESA0R 



ERROR* 147 



BIC «eRQ,IGOOAT 

BIS 4eRQEN!ACKEN.*GD0AT 

CLR 8«6FLAG : SAY 

BIS «BRQEN!ACKEN.(R5) 

MTPS «PRO ! 



SET EXPECTED STATUS. 
. . .AND BR IF REQUEST IS SET. 
; >> ERROR 147. BREQ DIDN'T SET 



SET EXPECTED STATUS. 
. "EXPECTING TRAP THROUGH 130." :FX8X 
SET QIR AND QIACK ENABLES (POST BRQ4)... 
LOMER THE CPU. . . 



C9 



KXJll-CA FUNCTIONAL TEST 
T12 Q-BUS INTERi^T 
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4018 










4019 


026442 


105777 


152476 




4020 


026446 


100375 






4021 


026450 


017704 


152472 




4022 


026454 


120427 


000131 




4023 


026460 


001370 






4024 


026462 


005000 






4025 


026464 


005737 


001352 




4026 


026470 


001023 






4027 


026472 


077004 






4028 


026474 


042715 


030000 




4029 


026500 


012737 


000001 


001352 


4030 


026506 


012737 


027257 


044746 




026514 


012737 


045206 


044752 




026522 


104150 






4031 


026524 


077001 


000005 


077001 


4032 


026532 


052777 


002000 


152554 


4033 


026540 


011537 


001126 




4034 


026544 


032737 


040000 


001126 


4035 026552 


001407 






4036 


026554 


012737 


027210 


044746 




026562 


012737 


045210 


044752 




026570 


104151 







4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 



026572 
026572 
026600 
026602 
026606 
026610 
026616 
026620 
026626 

026632 
026636 
026642 
026650 
026654 
026660 
026664 
026672 
026700 
026706 
026714 

026720 
026726 
026730 
026736 
026740 
026746 
026754 



122737 
001007 
005737 
001142 
032777 
001536 
052737 
042715 

106427 
004737 
052737 
012706 
013746 
013746 
012737 
012737 
012737 
052737 
005037 

012777 
000240 
032737 
001007 
012737 
012737 
104152 



000001 001206 



001174 

000340 

000100 
030000 

000340 
001462 
140000 
140000 
000404 
000406 
000J37 
002614 
177654 
000001 
001344 

000150 

040000 

027371 
045206 



152522 
177540 

177776 



000404 
000406 
172356 
177572 



152370 

177530 

044746 
044752 



2%: 



3$: 



LOCK FOR ARBITER'S 'Y 



4$: 



TSTB 
BPL 
MOV 
CMPB 
BNE 
CLR 
TST 
BNE 
SOB 
BIC 
MOV 

MOV 
MOV 
ERROR 
.WORD 
BIS 
MOV 
BIT 
BEQ 

MOV 
MOV 
ERROR 



S$TKS 
2% 

S$TKB.R4 
R4.*'Y 
2i 
RO 

946FLAG 
4$ 

R0,3i 



SIGNIFYING IT HAS RESPONDED. 

UAIT FOR CHAR FROM ARBITER. 
KEEP LOOKING. 
GET THE CHARACTER. 
DID ARBITER SAY YES? 
IF NO. KEEP LOOKING. 
ARBITER SAYS IT RESPONDED. 
DID TRAP OCCUR YET? 
YES. CONTINUE. 
KEEP LOOKING FOR A WHILE. 



#BRQEN!ACKEN,(R5)! DISABLE INTERRUPTS UHILE REPORTING. 



«1.3«6FLAG 
#QI4,EMA0R 
«NOSIG.ESAOR 
150 

S0B*1. RESET, 
»2000.9$CSR 
(R5).iBD0AT 
«6RQ.iBDDAT 
5i 

#QI3,EMA0R 
#EF2.ESA0R 
151 



AND 

j\\ 
>> 

!// 

S06U 
BUT 
GET 



SAY THEY'RE NOT EXPECTED EITHER. 



FX8JC 
FX8JC 
FX8JC 
FX9JC 
FX8JC 
FX8X 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX3JC 



ERROR 150. INT-ON-BIACK NOT RECEIVED 



J! LOCAL -RESET. 
ENABLE TRAP ON Q-BUS RESET, 
FINAL STATUS... 
...REQUEST SHOULD BE GONE. 
BR IF SO. 

!\\ 

! >> ERROR 151. BREQ STILL SET. 

!// 



;FX8JC 



5FX8JC 



BIACK NOT RECEIVED 



DO IT (M:E more USING THE ALTERNATE VECTOR. 
ARBITER WILL RESPOND WITH A "RESET". WHICH SHOULD 
CAUSE A "BUS-INIT" AND LOCAL TRAP THRU VECTOR 24. 



5*; 



55*1 



CMPB 

BNE 

TST 

BNE 

BIT 

BEQ 

BIS 

BIC 

MTPS 

JSR 

BIS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

CLR 

MOV 
NOP 
BIT 
BNE 
MOV 
MOV 



*APTENV.$ENV j 
551 ! 
♦PASS ; 
QIEND 

#<16*BIT4>,anCID 
QIEND 

0BITO6.K2CSRJ 



#<BRQEN!ACKEN>,(R5) 



RUNNING IN APT MODE? 
NO. CONTINUE 

IF APT AND NOT FIRST PASS . . . 
... SKIP THIS PART OF THE TEST. 
; IF ID 0 OR 1... 
..JUST GET OUT. 

5 ARM B-INIT TRAP. 



FX8JC 
FX9JC 
FX9JC 
FX9JC 
FX9JC 



.DISABLE IACK...^f(M 



TRAP 24 SHOULD BE NON-MASKABLE. 
INIT MMU REGISTERS 
SET USER MODE 
SET UP USER STACK 



«PR7 
PC. MMU 

#140000, a«PSW 
«140000.R6 
a#404,-(SP) 
8*406, -(SP) 
#137,a#404 ; 
«RSTRAP.9«406 ; 
#177654, 8#KIPAR7 5 
«l,a«MMRO iTURN ON MMU 

a#RFLAG ! SAY "EXPECTING A TRAR THROUGH 24." 



jFX8JC 



«QIRV1,S$QIR 

0eiT14,9«K2CSRD 
15$ 

«)PR11,EMA0R 
«NOSIG.ESAOR 



ERROR ♦152 



POST Q-BUS REQUEST. 

IS INTERRUPT POSTED? 

W 

>> ERROR 152. QIR NOT WRITTEN 

// 



D9 



KXJll-CA FUNCTIONAL TEST 
T12 Q-BUS INTERRUPT 



4069 

4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 



4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 



026756 052715 012000 



026762 
026766 
026770 
026774 
027000 
027002 
027010 
027016 
027022 
027026 

027034 
027036 
027042 
027044 
027046 
027054 
027062 
027070 
027076 
027100 
027106 
027114 
027122 
027130 
027132 
027157 
027210 
027257 
027323 
027371 



105777 
100375 
017705 
120527 
001370 
012737 
042737 
012637 
012637 
042737 

005000 
005737 
001024 
077004 
042737 
012737 
012737 
012737 
104153 
077001 
052777 
042737 
012777 
000530 
102 
121 
042 
111 
124 
121 



152156 

152152 
000131 

177600 
000001 
000406 
000404 
140000 



001344 



002000 
000001 
027323 
045206 

000005 
002000 
000100 
002000 

125 
055 
102 
116 
122 
111 
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172356 
177572 



177776 



177530 
001344 
044746 
044752 

077001 
152200 
177540 
152164 

123 
102 
111 
124 
101 
122 



151: 
: WAIT 
6$: 



BIS #<BIT12!BIEN>.(R5) .- ALLOW QBUS INTERRUPT 

FOR ARBITER TO SEND A 'Y SIGNIFYING IT HAS RESPONDED. 



7$: 



QIENO: 



QIl: 

QI2: 

QI3: 

QI4: 

QI5: 

OPRll: 

.EVEN 



TSTB a*TKS 

BPL bi 

NOV a$TKB.R5 

CMPB R5.#'Y 

BNE 6* 

NOV «1776OO.a0KIPAR7 

BIC «i.a«mRO 

nov (SP)«.a«406 

nov (SP)«.a»404 

BIC M400C0.PSU 

CLR RO 

TST a«RFLAG 

BNE QIEM) 

SOe R0.7* 

BIC *2000.a#177530 

m\i «i.a«RFLM; 

MOV «QI5,EMADR 

nov «NOSIG.ESAOR 



ERROR ♦I 53 



.WORD 

BIS 

BIC 

MOV 

BR 

.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 
.ASCIZ 
.ASCIZ 



S0B*1. RESET. 
»2000.a«CSR 
«BIT06.9«K2CSRJ 
»2000.aiCSR 
TST13 

/BUS TIME-OUT AT 



WAIT FOR CHAR FROM ARBITER. 
KEEP LOOKING. 
GET THE CHARACTER. 
IS IT A YES? 
IF NOT, KEEP LOOKING. 



RESTORE VECTORS 

SET KERNAL MODE 

ARBITER HAS EXECUTED A BUS-RESET 

DID TRAP OCCUR YET? 

YES. CONTINUE. 

KEEP LOOKING FOR A WHILE. 

DISABLE TRAPS WHILE REPORTING FRROR. 

AND SAY THEY'RE NOT EXPECTED EITHER. 



FX8JC 
FX8JC 
FX8JC 
FX9JC 
FX8X 
FX8JC 



! >> 

;// 
S0B*1 



FX8X 
FX8X 
FX8X 
FX8JC 
FX8X 
FX8JC 



ERROR 153. BRESET TRAP THRU 24 DIDN'T HAPPEN 



LOCAL -RESET. 



BUT ENABLE TRAP ON Q-BUS RESET. 



AND CSR ' S 
;AND THAT'S ALL THERE IS TO IT. 
QIR / 

/Q-BUS REQUEST DIDN'T SET/ 
/"BUCK" NOT RECEIVED (Q-REQ STILL SET)/ 
/INTERRUPT CON "BIACK") NOT RECEIVED/ 
/TRAP THRU 24 NOT RECEIVED ON "BRESET"/ 
/QIR NOT WRITTEN/ 



:FX8JC 
iFXBJC 



E9 



KXJll-CA FUNCTIONAL TEST 
T13 TJO PORT REGISTERS 



4102 



027412 
027414 
027422 
027424 
0274V 

0274' 

027442 

027450 

027452 

0P7456 

02 7460 

027462 

027466 

027472 

027474 

027522 



4103 



027522 

4104 
4105 
4106 
4107 

4108 027522 
027522 

4109 027530 

4110 027536 
4111 

4112 027544 

4113 027550 

4114 027554 

4115 027560 

4116 027562 

4117 027564 

4118 027570 

4119 027574 

4120 027576 

4121 027602 

4122 027610 

4123 027612 
027620 
027626 

4124 027630 

4125 027632 

4126 027636 

4127 027640 
027640 
027646 
027654 

4128 027656 



000004 
032737 
001417 
012706 
312737 
005037 
032777 
001006 
005777 
000240 
102002 
000137 
104415 
000413 
040 



012737 
012737 
012777 

013700 
012701 
120027 
001001 
005720 
010037 
013710 
102421 
012037 
023737 
001407 
012737 
012737 
104154 
077127 
005037 
000411 

012737 
012737 
104155 
000137 



000340 177524 
001100 

177777 002426 
044742 

000400 151470 
151642 
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:*TEST 13 TWO PORT REGISTERS 

TST13: SCOPE 



032124 
027474 

040 



027530 
177777 
002000 

001320 
000017 
000002 



001120 
001124 

001126 
001124 

046533 
045210 



002426 



046500 
045230 

032122 



124 



001110 
001124 
151550 



001126 

044746 
044752 



044746 
044752 



30056*: 
30057$: 



BIT 
BEQ 
MOV 

rwv 

CLR 
BIT 
BNE 
TST 
NOP 
BVC 
JMP 

TtNAME. 
BR 

.ASCIZ 
.EVEN 



*340.a*K2CSRC 
30056* 
*STACK.SP 
*-l,TRAP4X 
EMPRE 
«eiT8.aSUR 
30057* 
3*DPR 

30057* 
TST14 
.♦4 

30058* 

\ TWO PORT REGISTERSN 



IS THE ID SWITCH IN POSITIONS 0 OR 1? 
SKIP THIS TEST IF IT IS 
SET A aEAN STACK. 
DISMISS BUS-ERRORS. 
CLEAR ERROR PREFIX. 
FORCED ENTRY SELECTED ?? 
BR IF SO. 

CHECK FOR VALID *DPR. 

SKIP NEXT IF OK. 
BYPASS 

PRINT TEST NUMBER MS) NAME... 
.AND SKIP OVER THE ASCII. 



30058* ; 

♦TEST 13.1 READ/WRITE ACCESS 
T13.1:: 

FIRST, DISABLE THE DPR AND VERIFY WRITE/READ 
FROM THE LOCAL CII) SIDE. 



TDPRl: 



1*: 
2*: 



3*: 
4*: 



MOV #.*6,*LPERR 

MOV #-l.*GDOAT 

MOV #2000,a*CSR 

MOV *OPR,RO 

MOV #15.. Rl 

CMPB R0.»2 

BNE 2* 

TST CRO)* 

MOV RO.*GOAOR 

MOV *GOOAT.(RO) 

BVS 4* 

MOV CRO)*,»BDOAT 

CMP *GDOAT.*BDOAT 

BEQ 3* 

MOV 00PR2,EMADR 

MOV #eF2. ESAOR 
ERRORS 154 

SOB Rl.l* 

CLR TRAP4X 

BR TDPR2 

MOV #0PR1.EMA0R 

MOV «.A16,ESA0« 
ERROR* 155 

JMP DPREND 



sFXSJC 
;FX8JC 



i LOOP HERE ON ERROR. 
SET EXPECTED DATA. 
EVERYTHING OFF BUT TRAP ON Q-BUS 
RESET. 

DPR BASE ADDRESS (LOCAL). 

DOT'S STATUS REG ?? 
SKIP IF NOT. 
YES. DON'T WRITE IT. 
SET ADDRESS. 
WRITE ALL BITS... 

...AND READ IT BACK. 



; >> ERROR 154, LOCAL DPR WRITE-READ ERROR 
;// 

RESET TRAPPER... 
...AND PROCEED. 

j\\ 

: >> ERROR 155, BUS-ERROR ON DPR ADDRESS 
;// 

ABORT TEST. 



F9 



KXJll CA FUNCTIONAL TEST 
T13.1 REAO/URITE ACCESS 



4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
TION 



160000 
175400 
015400 

027662 017700 151452 



4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 



4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 



4177 
4178 
4179 



027666 
027670 
027674 
027700 
027702 
027710 
027716 
027720 
027724 
027726 
027732 
027740 
027742 
027746 
027750 
027752 
027760 
027762 
027770 
027772 

030000 
030004 
030010 
030014 
030016 
030022 
030030 
030036 
030040 
030042 
030046 
030052 
030060 
030064 
030070 
030074 
030076 
030104 
030112 
030114 
030122 



010001 
072127 
020137 
001407 
012737 
012737 
104156 
042700 
006300 
063700 
032777 
001402 
062700 
010027 
000000 
032737 
001404 
052737 
000403 
042737 

012701 
012702 
004737 
102012 
010037 
012737 
012737 
104157 
000431 
012700 
012701 
013737 
005037 
010037 
012037 
001407 
012737 
012737 
104160 
062737 
077120 



177774 
050742 

031156 
045206 

177617 

001322 
000200 

015400 



000010 

002000 

002000 

061022 
000020 
031722 

001120 
046566 
045222 



061022 
000020 
027750 
001124 
001122 
001126 

046633 
045360 
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NOW THE DPR IS FULL OF I'S CEXCEPT FOR WORD 1). 

READ ALL UOROS FROM THE Q BUS SIDE USING THE DMA ENGINE. 

EXPECT ALL ADDRESSES TO RESPOND (NO EOP). BUT DATA «= O'S. 



044746 
044752 



151400 

177522 
027750 
027750 



044746 
044752 



001120 



044746 
044752 



L0QB> 160000 : 162000 
HIQB* 175400 s 177400 
L02HI> HIQB-LOQB 



TDPR2: MOV 



a$TCID,R0 



LOU RANGE Q-BUS BASE ADDRESS (ID 0-7). 
HIGH DITTO (ID 8 F). 

OFFSET TO CHANGE FROM LO TO HI RANGE. 

GET CPU ID NUM (CSRC<7:4>). 



;TEST THAT THE lOP 
; SETTING OF THE 
MOV 
ASH 
CMP 
BEQ 
MOV 
MOV 
ERROR 



ID DETERMINED BY THE ARBITER MATCHES THE ACTUAL 
ID SUITCH REPRESENTED IN K2CSRC <7-4> 
RO.Rl 



10*: 



1$: 
QOPR: 



5*: 
4$; 



1«: 



2i: 



000002 001120 3$ ; 



.ID 



#-4.Rl 
Rl.IOP. 
10* 

«DERR,EMA0R 
*NOSIG.ESADR 
156 



BIC #tC160.R0 

ASL RO 

ADD IDPRQ.RO 

BIT #BIT7,a*TCID 

BEQ 11 

ADD *L02HI.R0 

MOV RO,(PC)* 

0 

BIT #BIT03.a<»<2CSRB 

BEQ 51 

BIS «2000.Q0PR 

BR 41 

BIC «2000,Q0PR 

MOV #eUFRl,Rl 

MOV *16.,R2 

CALL RQIO 

BVC 1* 

MOV RO.IGOADR 

MOV #0PR3.EMA0R 

MOV «LA16H2.ESADR 



ERR0R*157 

BR 

MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
BEQ 
MOV 
MOV 



TIPVl 
«eUFRl.RO 
*16. .Rl 
QOPR.tGOADR 
tGODAT 
RO.IBDAOR 
(RO)*.«BOOAT 
3« 

«0PR4.EMADR 
4EF6.ESADR 
ERR0R«160 
ADD «2.«G0ADR 



lOP ID NUMBER SHOULD - SUITCH SETTING 



lOP ID NUMBER DOES NOT MATCH ARBITER CALCULA 
NUM*16... 
DPR ADDRESS. 



<6:4> » 
NUM*32. 
" Q-BUS 



\\ 

>> ERROR 156. 
// 

STRIPPED TO 
...TIMES 2 = 
. . .PLUS BASE 
ID >- 8. 71 
NO. 

YES, ADJUST TO HIGH RANGE. 
SAVE QOPR ADDRESS... 

is 'the HI RANGE JUMPER INSTALLED? 

HI RANGE .m»ER INSTALLED 

HI RANGE JUMPER NOT INSTALLED 

SET LOCAL ADDRESS... 
...AND UORD COUNT. 

READ FROM Q-BUS SIDE VIA DMA. 

BR IF NO TIME-OUT "EOP". 

BAD Q ADDRESS (*2). 
;\\ 

5 » ERROR 157, BUS ERROR ON Q-BUS DPR READ 
:// 



SRC AOORESS(ES)... 
...SHOULD HAVE RETURNED ZERO. 

DST ADORESS(ES)... 
...AND UHAT UE REALLY GOT. 

BR IF ZERO. 
;\\ 

! » ERROR 160. NON-ZERO DATA ON Q-BUS READ 
;// 



SOB Rl 2t 
:*TEST 13.2 Q-BUS URITE 



G9 



KXJll CA FUNCTIONAL TEST 
Ti3.2 Q-BUS URITE 
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4180 
4181 
4182 
4183 
4184 



030124 



T13.2:: 

SO FAR. SO GOOD -- NOW URITE ALL FROM THE Q-BUS SIDE, 
1ST URITE SHOULD FORCE A NON MASKABLE RESTART TRAP (COMMAhC INT). 
ALL OTHERS SHOULD APPEAR NON-EXISTANT (EOP). 



4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 

4209 
4210 
4211 



4212 
4213 
4214 



4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 



C 'X)124 
030124 
030132 
030140 
030146 
030154 
030160 
030164 
030172 
030176 
030202 
030206 
030214 
030222 



030230 
030236 
030242 
030246 
030252 
030256 
030262 
030270 
030274 
030300 
030302 
030310 
030316 
030320 
030^24 
030o26 
030326 
030334 
030342 
030344 
030352 
030360 
030364 
030370 
030376 
030402 
030404 
030410 
030414 
030420 
030424 
030426 
030434 



012737 
012737 
012737 
012737 
106427 
004737 
052737 
012706 
013746 
013746 
012737 
012737 
012737 



052737 
013700 
012701 
012702 
012711 
010037 
052737 
005037 
004737 
102007 
012737 
012737 
104161 
005737 
001007 

012737 
012737 
104162 
012737 
042737 
012726 
012726 
012737 
106427 
005004 
012703 
012702 
010037 
004737 
102407 
012737 
012737 



030132 
031126 
031134 
031142 
000340 
001462 
140000 
140000 
000404 
000406 
000137 
002544 
177654 



000001 
027750 
061022 
000001 
000040 
001120 
000100 
001346 
031732 

046774 
045230 

001346 



046700 
045206 

177600 
000001 
000406 
000404 
000340 
000000 

000017 
000001 
001120 
031732 

046771 
045230 



001110 
000120 
000124 
000134 



177776 



000404 
000406 
172356 



177572 



177540 



04474C 
044752 



044746 
044752 

172356 
177572 



177776 



TIPVl: 



1$: 
11^ 

2$: 



4$: 



044746 
044752 



MOV «.«6.(LPERR 

MOV «IR4.DPRV4 

MOV #IR8.DPRV8 

MOV »IR12.DPRV12 

MTPS «PR7 

JSR PC.MMU 

BIS m0000.9«PSU 

MOV #140000. R6 

MOV a«404.-(SP) 

MOV 8*406. -(SP) 

MOV *137. 3*404 

MOV #NMITRP, 3*406 

MOV *177654.3*KIPAR7 



BIS *1,3#MMR0 

MOV QOPR.RO 

MOV *6UFR1.R1 

MOV *1.R? 

MOV *40.(R1) 

MOV RO.tGOADR 

BIS *BIT06.a«K2CSRJ 

CLR 3*TPR0TR 

CALL UQIO 

BVC 1$ 

MOV «0PR7.EMA0R 

MOV «LA16.ESADR 
ERROR* 161 

TST a*TPROTR 

B^e 2« 

MOV «DPRS,EHAOR 

MOV «NDSI6.ESADR 
ERR0Ra62 

MOV «177600.a4KIPAR7 

BIC «l.a«MMRO 

MOV 4406.(SP)* 

MOV #404. (SP)* 

MOV «340,a«PSU 

MTPS flPRO 

CLR R4 

MOV #15.. R3 

MOV #1.R2 

MOV RO.IGDAOR 

CALL UQIO 

BVS 5$ 

MOV #0PR6.EMADR 

MOV «LA16.ESA0R 



: LOOP HERE ON ERROR. 
LEVEL 5 INTS SHOULD... 
. . .NOT HAPPEN. . . 
(YET)... 

..."COMMAND" INTERRUPT SHOULD. 
INIT MMU REGISTERS 
SET USER MODE 
SET UP USER STACK 



WILL CAUSE NON MASKABLE INTERRUPT TO POINT 
..TO PHYSICAL ADDRESS 404 RATHER THAN 1773004 
...WHICH IS THE FIRMWARE RESTART ADDRESS. GETS 
....AROUND THE NEED TO HAVE FIRMWARE TO DO TEST 
TURN ON MMU 

SET GLOBAL DPR ADDRESS... 
...LOCAL ADDRESS... 
...AND WORD COUNT. 

SET 1ST WORD = "NOP" COMMAND. 

ARM INTERRUPTS 
SAY EXPECTING RESET TRAP 

URITE DPR UORO 0... 
...SHOULD NOT HAVE ABORTED. 

; » ERROR 161, TIME-OUT ON URITE TO DPRO 
;// 

DID TRAP OCCUR? 



» ERROR 162. COMMAND INTERRUPT DOESN'T UORK 



;// 



:SET KERNEL MODE 
LOUER CPU. 

CLEAR INT RECEIVED FLAG. 
SET LOOP FOR 15 MORE URITES. 
ONE AT A TIME. 

URITE NEXT FROM Q-BUS SIDE. . . 
...SHOULD RETURN "EOP". 

1 » ERROR 163. Q-BUS DPR URITE DIDN'T TIME-OUT 



H9 

KXJll-CA FUNCTIONAL TEST 
T13.2 Q-BUS URITC 
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4228 
4229 
4230 
4231 



4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 



4251 
4252 
4253 
4254 



4255 



030442 
030444 
030446 
030450 
030452 
030460 
030466 



030470 
030476 
030502 
030506 
030512 
030516 
030522 
030524 
030530 
030534 

030536 
030542 
030544 
030552 
030560 
030562 
030564 
030570 
030572 
030600 
030606 



104163 
077317 
005704 
001407 
012737 
012737 
104164 



012777 
013700 
062700 
012701 
012703 
010037 
005004 
012702 
004737 
102413 

030327 
001422 
012737 
012737 
104165 
000412 
030327 
001007 
012737 
012737 
104166 



047042 
045206 



044746 
044752 



ERROR. 163 
5$: SOB R3.4$ 
TST R4 
BEO TIPV2 
nOV «0PR8.EnADR 
MOV «NOSIG.ESAOR 
ERRORS 164 



::// 

: NONE SHOULD HAVE INTERRUPTED. 
• -W 

!• >> ERROR 164. INT HAPPENED UITH DPR DISABLED 
!;// 



002170 
027750 
000002 
061024 
000002 
001120 

000001 
031732 



001042 

046771 
045230 



001042 

046774 
045230 



NOU. ENABLE THE DPR. AND URITE UORDS 1-15 AGAIN. 

EXPECT EOP AT WORDS 1. 5. AND 9. 

AND INTERRUPTS AT UORDS 4. 8, AND 12. 



150616 TIPV2: 



1$; 



MOV 

MOV 

ADO 

MOV 

MOV 

MOV 

CLR 

MOV 

CALL 

BVS 



*2170.a*CSR 

QDPR.RO 

*2.R0 

«UFR1*2.R1 
«eiTl.R3 
RO.tGDADR 
R4 

*1.R2 

UQIO 

3$ 



SET ALL ENABLES INC. Q BUS RESET TRAP.:FX8JC 

SET Q ADDRESS. . . 
. . .FOR DPRl. . . 
. . .A^« LOCAL Aono^ss. 

BIT - CURRENT UO«D UNDER TEST. 

SET CURRENT DPR ADOR FOR ERROR. 

CLEAR "INT RECVD" FLAG. 

SET WC... 

...AND URITE A WORD. 
BR IF WRITE TIMED OUT CEOP). 



044746 
044752 



044746 
044752 



2$: 



3$: 



BIT R3.#<BIT1!BIT5!BIT9> 
BEQ 4$ 
MOV «)PR6.EMA0R 
MOV 4LA16.ESADR 
ERR0R«165 
BR At 

BIT R3.#<BIT1!BIT5!BIT9> 
BNE 41 
MOV «)PR7.EMA0R 
MOV 4LA16.ESA0R 
ERR0RU66 



4256 030610 


030327 


000020 




4»: 


BIT 


R3.«eiT4 


; INTERRUPT 4 EXPECTED ?? 


4257 030614 


001406 








BEQ 


5$ 


; NO. 


4258 030616 


012737 


032060 


047112 




MOV 


#"04.DPR9*3 


J YES... 


4259 030624 


020437 


047112 






CMP 


R4.0PR9*3 


RECEIVED ?? 


4260 030630 


001022 








BNE 


661 


. NOPE 


4261 0S0632 


030327 


000400 




5$: 


BIT 


R3.«BIT8 


i INTERRUPT 8 EXPECTED ?? 


4262 030636 


001406 








BEQ 


61 


: NO. 


4263 030640 


012737 


034060 


047112 




MOV 


#"08.DPR9*3 


; YES... 


4264 030646 


020437 


047112 






CMP 


R4,0PR9*3 


RECEIVED ?? 


4265 030652 


001011 








BNE 


661 


. NOPE 


4266 070654 


030327 


010000 




6$: 


BIT 


R3.«IT12 


i INTERRUPT 12 EXPECTED ?? 


4267 C<C660 


001415 








BEQ 


7$ 


: NO. 


4266 030662 


012737 


031061 


047112 




MOV 


#"12, DPR*;. 3 


; YES... 


4269 030670 


020437 


047112 






CMP 


R4.0PR9*3 


;...RECEI»'LJ ?? 


4270 030674 


001407 








BEQ 


7* 


; YUP. 


4271 030676 








66$: 








030676 


012737 


047107 


044746 




MOV 


40PR9.EMA0R 




030704 


012737 


045206 


044752 




MOV 


«N0SIG.ESA0R 


» ERROR 167. DPRXX INTERRUPT 


030712 


104167 








ERROR .167 


;;// 


4272 














; SHIFT UP TO NEXT WORD (BIT)... 


4273 030714 


006303 






7$: 


ASL 


R3 


4274 030716 


001277 








BNE 


1$ 


:...AND LOOP 'TIL ALL UORDS DONE. 



TIME-OUT EXPECTED ?? 
NO. PROCEED. 
!\\ 

; >> ERROR 165. WRITE TO DPR DIDN'T TIME-OUT (NO EOP) 

!// 

TIMED-OUT EXPECTED ?? 
YES. SO FAR SO GOOD. 
sW 

s » ERROR 166. WRITE TO DPR TIMED-OUT (EOP) 
;// 



1^ 

KXJll-CA FUNCTIONAL TEST 
T13.2 0-BUS WRITE 

4275 
4276 
4277 
4278 

4279 030720 013700 001320 

4280 030724 016001 000036 

4281 030730 042777 010000 

4282 030736 012777 000154 

4283 030744 032777 040000 
4284 
4285 
4286 
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''INALLY, USE THE QIR FACILITY Afi) VERIFY THAT THE 
MBITER PROCESSOR CAN INDEED URITE INTO THE DPR. 



4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
42% 
4297 
4298 
4299 



4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 



030720 
030724 
030730 
030736 
030744 
030752 
030754 
030756 
030764 
030772 
030774 
030776 

031004 
031010 
031012 
031016 
031022 

031024 
031030 
031032 
031040 
031046 
031054 



013700 
016001 
042777 
012777 
032777 
000240 
-•10 
«.-^ 61 
012T57 
104170 
000443 
052777 

105777 
100375 
017703 
120327 
001370 

026001 
001012 
042777 
012737 
012737 
104171 



TIPV3: 



027371 
045206 



010000 

150134 

150130 
000131 

000036 

010000 
047144 

045206 



150356 
150352 
150342 



044746 
044752 



150310 11$: 



tlOV 
MOV 
BIC 
MOV 
BIT 
NOP 
BNE 
MOV 
MOV 



«0PR.RO 

36CR0 -.1 

«8iTi2.a*cr- 

«QIRV2.aiQIR 
«BIT14.aiCSR 



111 

«OPR11,EMAOR 
«NOSIG,ESAOR 
ERR0R*170 
BR 10$ 
BIS «BIT12.9$CSR 



1$: 



UAIT FOR ARBITER TO SEND A 'Y 



150254 
044746 
044752 



TSTB a*TKS 

BPL 1* 

MOV a*TKB,R3 

CMPB R3.*'Y 

BNE 1$ 

CMP 36(R0).R1 

BNE 2$ 

BIC ^iKvlEN.alCSR 

MOV «DPP10,EMADR 

MOV WOSIG.ESAOR 
ERROR* 171 



SAVE DPR<15>. 
DISABLE Q BUT INTERRUPT 
SET Q-REQUEST... 
MAS QIR URITTEN? 
DELAY A SKOSH 

s\\ 

: >> ERROR 170. QIR NOT URITTEN 

:// 

5 ENABLE Q BUS INTERRUPT 
SIGNIFYING IT HAS RESPONDED. 
WAIT FOR CHAR FROM ARBITER. 
KEEP LOOKING. 
GET THE CHARACTER. 
IS IT A YES? 
IF NOT. KEEP LOOKING. 



FX8JC 
FX8JC 
FX8JC 
FX9JC 
FX8JC 
FX8JC 



..ARBITER SHOULD COMPLIMENT DPR<15> 
BR IF IT DID. 
DISABLE REQUEST. 
\\ 

>> ERROR 171, 

// 



031056 012777 002000 150230 



031064 
031070 
031074 
031076 
031100 
031102 

031104 
031110 
031114 
031120 
031124 

031126 
031132 
031134 
031140 
031142 
031146 
031154 
031156 



013700 
012701 
005020 
005720 
005020 
077102 

012700 
010037 
010037 
010037 
000423 

012704 
000402 
012704 
000402 
012704 
042777 
000002 
111 



001320 
000016 



002542 
000120 
000124 
000134 



CT.>060 
034060 

031061 

000007 150140 



U7 



120 



2$: 


MOV 


«2000,3$CSR 


ff 


ALL DONE. CLEAR STATUS BUT 








w 


TRAP ON 0 b'JS RESET. 




MOV 


*OPR,RO 








MOV 


*14..R1 








CLR 


(RO)* 




CLEAR DPRO... 




TST 


CRO)* 




...SKIP DPRl... 


3$: 


aR 


(R0)> 




...AND CLEAR THE REST. 




SOB 


R1.3$ 






10$: 


MOV 


tfOISMISS.RO 








MOV 


R0.DPRV4 


9 


...RESTORE VECTORS... 




MOV 


R0.DPRV8 








MOV 


R0,DPRV12 








BR 


ENDIRQ 






IR4: 


MOV 


*''04,R4 


9 


DPRV4 INTERRUPT RECEIVED. 




SKP2 






IRS: 


MOV 


«''08.R4 


• 
9 


DITTO DPRV8. 




SKP2 






IR12: 


MOV 


#"12. R4 


• 


DITTO 0PRV12. 




BIC 


#7.a$CSR 




TEMP, ENiirS REQ'S ARE 




RTI 








IDERR: 


.ASCIZ 


/lOP ID ERROR/ 






.EVEN 











sFX8JC 
5FX8JC 

ARBITER URITE TO DPR<15> FAILS 



;FX8JC 
5FX8JC 



J9 



KXJll CA FUNCTIONAL TEST 
T13.2 Q-BUS URITE 

4326 031174 
4327 



4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

H -.45 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 



031174 



031174 
031202 
031206 
031212 
031220 
031226 
031234 

031240 
031244 
031246 



031252 
031256 
031262 
031266 
031270 
031272 
031276 
031300 
031304 
031306 
031310 
031312 
031314 
031320 
031322 
031326 
031330 
031334 
031340 
031344 
031346 
031352 
031356 
031360 
031362 
031364 
031366 
031370 
031372 
031374 
031400 
0il404 
031406 
031412 



012737 
013746 
013746 
012737 
012737 
012737 
004737 

012701 
077101 
005037 



012703 
012702 
012704 
010324 
010224 
022704 
001373 
012704 
020324 
001042 
020224 
001035 
022704 
001371 
022702 
001407 
012704 
012702 
012703 
000750 
012704 
012703 
005044 
000240 
000240 
005714 
001002 
077306 
000474 
005037 
011437 
000407 
010237 
000402 



177777 
000004 
000006 
031450 
000540 
000006 
036330 

000400 

177766 



125252 
052525 
175000 



175040 
175000 

175040 

125252 

175000 
125252 
052525 

175040 
000020 
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ENDIRQ: 

;*TEST 13.3 ACCESS TPRS FROM QBUS AND LOCAL ^ineS SIMULTANEOUSLY 
T13.3:: 

NOW TEST THAT TPRS CAN BE ACCESSED FROM THE LOCAL SIDE UHEN THERE 
IS HEAVY Q-BUS ACTIVITY TO THEM. 

175000 



000004 
000006 
175012 



MOV 


* l.a#TPR00 


INIT TPRO WITH -1 


MOV 


a*4.-(SP) 


SAVE TRAP VECTOR 


MOV 


a«6.-(SP) 




MOV 


«8$.a#4 


LOAD NE.4 VECTOR 


MOV 


i»340.3«6 




MOV 


*6.a*TPR05 


POINT TO ARBITER ROUTINE IN TPR5 


JSR 


PC.ARBDIS 


GO TO ARBITER DISPATCH ROUTINE 
. . TPRS UILL BE ENABLED ON RETURN 


MOV 


*400,R1 




SOB 


Rl.. 


[give the PftS-ITER TIME TO SET UP 


CLR 


a#177766 


(CLEAR THE CPU ERROR REGISTER 



TEST THE TPRS WHILE THE ARBITER IS READING TPRO IN A TIGHT LOOP 



001124 
001126 

001124 



MOV #125252. R3 

MOV #52525. R2 

MOV #TPR00.R4 

U: MOV R3,(R4)* 

MOV R2.(R4)* 

CMP #TPR15*2.R4 

BNE U 

MOV #TPR00,R4 

2$: CMP R3.(R4)* 

BNE 5$ 

CMP R2.(R4)* 

BNE 3$ 

CMP #TPR15*2,R4 

BNE 2i 

CMP #125252, R2 

BEQ 4$ 

MOV #TPR00.R4 

MOV #125252, R2 

MOV #52525, R3 

BR II 

4$: MOV #TPR15»2,R4 

MOV #16, ,R3 

11$: CLR -(R4) 
NOP 
N'OP 

'3T (R4) 

BNE 121 

SOB R3,ll$ 

BR lOl 

12$: CLR a«fGOOAT 

MOV (R4).8«I60DAT 

BR 13$ 

3$: MOV R2.a#$GDDAT 

BR 6$ 



INIT R3 H DATA 
INIT R2 WITH DATA 
POINT TO FIRST TPR 
WRITE CHECKER BOARD TC 



;pR ARRAY 



DID WE RUN OUT OF TPRS YET? 

POINT TO TPROO 
CHECK DATA 
BRANCH IF BAD 
CHECK DATA 
BRANCH IF BAD 

DID WE CHECK ALL THE TPRS? 

DID WE TRY BOTH PATTERNS? 

RESET POINTER 
CHANGE PATTERN 



;SET UP LOOP 

5 CLEAR TPROO TO SIGNAL ARBITER THAT 



!lS IT CLEAR 



.-ERROR CALL DATA 
: ACTUAL DATA 

: ERROR CALL DATA 



l<9 

KXJll-CA FUNCTIOML TEST 
T13-3 
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ACCESS TPRS FROM QBUS AW LOCAt -IDES SIMULTANEOUSLY 



4380 
4301 
4382 
4383 



4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
43% 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 



4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4416 
4419 
4420 



031414 
031420 
031424 
031430 
031436 
031444 
031446 



031450 
031452 
031456 
031464 
031470 
031474 
031500 
031506 
031512 
031514 
031520 
031522 
031524 
031526 
031532 
031536 
031542 
031550 
031556 
031560 

031564 
031570 
031574 

031600 
031600 
031606 
031612 
031616 
031620 
031624 
031626 
031710 



010337 
014437 
010437 
012737 
012737 
104172 
000446 



022626 
013746 
012737 
012702 
052712 
042712 
012737 
032712 
001775 
052712 
000234 
000001 
022626 
042712 
012637 
010437 
012737 
012737 
104173 
005037 

012637 
012637 
000137 



042737 
006237 
013746 
104405 
104401 
000207 
040 
114 



001124 
001126 
001122 
005554 
045210 



000130 
031524 
177530 
000100 
010000 
000110 
040000 

030000 



030070 
000130 
001122 
031710 
031600 

177766 

000006 
000004 
032122 



175000 
001122 
001122 

031626 

124 
117 



044746 
044752 



5»: 
6»: 

13»! 



MOV R3.a»$G0DAT 

MOV -CR4).a#*BD0AT 

MOV R4,3#»B0A0R 

MOV *TPRDER,EMADR 

MOV #EF2.ESA0R 
ERROR* 172 

BR 10* 



:GET BAD DATA 

; . . AND FAILING TPR ADDRESS 

:\\ 

s >> ERROR 172. BAD DATA IN TPRS 

;// 
OK! 



COMES HERE IF UE SHOULD GET A TIME-OUT WHILE TRYING TO ACCESS TPRS 



8^ 



000130 
177532 



14$: 



7*: 



044746 
044752 



CMP 
MOV 
MOV 
MOV 
BIS 
BIC 
MOV 
BIT 
6EQ 
BIS 
SPL 
WAIT 
CMP 
BIC 
MOV 
MOV 
MCV 
MOV 



(5P)*.(5P)* 
a#130.-CSP) 
*7 $.3*130 
#K2CSRD.R2 
«IT06.CR2) 
«IT12.(R2) 
*110.oMM<2QIR 
«IT14,CR2) 
14$ 

#<BIT13!BIT12>.(R2) 



FIX STACK 
SAVE VECTOR 



ENABLE TPRS 

DON'T ALLOW BUS INTERRUPTS 
TELL ARBITER TO COOL IT. 
DID THE QIR GET WRITTEN? 

: ENABLE Q-BUS INTERRUPT 6 lACK INTERRUPT 



CSP)*.CSP)* 
«0070.(R2) 
CSP)*. 3*130 
R4.$B0ADR 
#TPRT0,EMA0R 
#TPRNXM.ESADR 
ERR0R*173 
CLR 3*177766 



10$: 



MOV 
MOV 
JMP 



CSP)*.8«6 
(SP>,8#4 
OPREND 



J LOWER PRIORITY LEVEL 
FIX STACK 

TURN OFF MASKABLE INTERRUPTS 
RESTORE VECTOR 

SAVE ADDRESS OF TPR CAUSING TIME-OUT 

^>> ERROR 173. TIME-OUT ON SIMULTANEOUS ACCESS TO TPRS 

.// 

CLEAR CPU ERROR REGISTER 
J RESTORE STACK 



001122 



111 
103 



TPRNXM: {ERROR ROUTINE FOR TPR 



1$: 

TPRTO: 



BIC 
ASR 
MOV 
TYPOS 
TYPE 
RTS 
.ASCIZ 
.ASCIZ 
.EVEN 



NXM 

STRIP OFF UN-NEEDED BITS 
SHIFT IT OVER ONE 



#175000. $BOAOR 
IBDADR 

$BDAOR.-CSP) 

.1* 

PC 

/ TIMED-OUT WHILE ARBITER WAS ACCESSING FROM Q-BUS/ 
/LOCAL TPR/ 



L 
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T13.3 ACCESS TPRS FROM QBUS AM) LOCAL SIDES SIMULTANEOUSLY 



4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4436 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4446 

4449 

44 "JO 

4451 

4452 

445^ 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 



031722 
O-'ITSO 
031732 
031740 
031744 
031750 

031754 
031756 
031764 
031772 
031776 
032004 
032006 
032014 
032022 
032030 
032032 
032040 
032042 
032050 
032054 
032060 
032064 
032072 
032074 
0320"'6 

032100 
032102 
032106 
032112 
032114 
032120 

032122 
032122 



042737 
000403 
052737 
010037 

CT.137 
010237 

005005 
012765 
012765 
005065 
012765 
000403 
012765 
012765 
012765 
000240 
032765 
001774 
012765 
016500 
016501 
016502 
032765 
001401 
000262 
000207 

001602 
177400 
000000 
000000 
000010 
000000 



000400 



000020 

000020 
032104 
032110 
032112 



000115 
000074 
174446 
032100 

032120 
000240 
000102 

020U00 

000054 
174412 
174402 
174462 
000002 



000000 
000000 

001 ^40 



032116 
032116 



174470 
174454 

174442 

174442 
174454 
174454 

174456 

174454 



174456 



SUBROUTINE TO ACCESS THE Q-8US I/O PAGE USING THE DMA ENGINE. 
ON CALL. RO = QIO ADDRESS. Rl = LOCAL ADDRESS. R2 = UORD COUNT. 
JN RETURN. THEY CONTAIN UPDATED (TERMINAL) VALUES. 
IF EOP TERMINATION, "V" BIT IS SET. 



RQIO: 
UQIO: 



CNTNU: 



1$: 



2«: 

QIOC: 

QA: 

LA: 

UC: 

CM: 

QIOCC: 
OPREND: 



BIC 

SKP3 

BIS 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

aR 

MOV 

SKP3 

MOV 

MOV 

MOV 

240 

BIT 

BEQ 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

SEV 

RETURN 



#eiT4,CM*2 

«eiT4.CM*2 
R0.QA«2 
R1.LA*2 
R2.UC 
$DMA.R5 
R5 

#115.MMR(R5) i 
*40!34.CMDR(R5) i 
CHA1HCR5) 
#QI0C.CHA1L(R5) i 

#QI0CC,CHA1L(R5) 
*?40.CMDR(R5) 
*n2,CM0R(R5) i 

«P.STAT1(R5) 1 
1« 

*40!14.CMDRCR5) 

174412(R5).R0 

174402(R5).R1 

174462(R5).R2 

#E0P.STAT1(R5) 



READ 



aEAR "FLIP" BIT. 



URITE - SET "FLIP" BIT. 
SET Q-BUS I/O AODREbS. 
SET LXAL ADDRESS. 
SET WORD COUNT. 



MODE - VI! WAIT iCPINTLV! ENABLE. 
CLEAR INTERRUPT ENABLES. 

SET START CHAIN ADDRESS. 

5 SET CONTINUE CHAIN (DUMMY). 
CHAIN-LOAD (OR RELOAD 0) REGISTERS. 
SET SOFT-REQ (START/CONTINUE DMA).. 

...AND WAIT FOR DONE/ABORT (IP=1). 

OK. CLEAR lUS AND IP. 

GET FINAL Q ADDR (ARAL)... 
...LOCAL ADDR (ARBD... 
...AM) WORD COUNT (OPK). 

"EOP" TERMINATION ?? 

SKIP IF NOT... 

...OTHERWISE, SET "V" IN PSW. 



1602 

177400, 0 
0. 0 
0 

10, 1340 
0 



BR 



TST14 



LOAD CARA, CARS. COPK. AND CH MODE. 

Q-BUS I/O ADDRESS (CARA) 

LOCAL ADDRESS (CARS) 

WORD COUNT (COPK) 

CHAN MODE (1360 IF "FLIP" « 1). 

DUMMY RELOAD TO CLEAR "NAC" AND CONTINUE. 



jjNEXT TEST 



KXJll CA FUNCTIONAL TEST 

T14 SHARED rCnORY MAPPING 

4465 



032124 
032126 
'^^2134 
052136 
032142 
032144 
032150 
032156 
032162 
032164 
032170 
052174 
032176 

032226 

4466 032226 

4467 032230 

4468 032236 

4473 032244 

4474 032252 

4475 032260 

4476 032264 

4477 032270 

4478 032274 

4479 032300 

4480 032304 

4481 032306 

4482 032312 

4483 032316 
^484 032324 

4485 032330 

4486 032334 
••488 

4489 
4490 
4491 

4492 032342 

4493 032344 

4494 032350 

4495 032352 
44% 032354 

4497 032356 

4498 032360 
4499 

4500 032364 
4^01 

4«i02 032370 

4503 032374 

4504 032402 

4505 032406 

4506 032412 

4507 032420 

4508 032426 

4509 032430 



000004 
032737 
001413 
005737 
001410 
012706 
012737 
005037 
000402 
000137 
104415 
000414 
040 



000237 

012737 

012737 

012737 

012737 

004737 

0137 

062700 

072027 

012701 

160001 

010137 

004737 

012737 

010637 

012706 

052737 



005002 
012703 
005001 
062102 
020301 
002375 
010237 

005037 

005037 
052737 
013746 
013746 
012737 
012737 
000234 
013737 



000340 

05O754 

001100 
177777 
044742 

033174 
032176 

040 



032574 
000340 
032772 
000340 
010450 
1723';2 
000200 
177771 
000100 

032572 
001462 
000020 
177676 
172300 
000001 
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:*TEST 14 SHARED MEMORY MAPPING 

: :************************************«•*>******«**•*****«•••••** 

TST14: SCOPE 



177524 



002426 



123 



000134 
000136 
000120 
000122 



BIT 
BEQ 
TST 
BEQ 
MOV 
MOV 

aR 

BR 

30059$: JMP 



30061$: 



«340,3«K2CSRC 

30059$ 

MAXBLK 

30059* 

#sta:x.sp 

* 1.TRAP4X 
EMPRE 
30060$ 
TST15 



IS THE ID SWITCH IN POSITIONS 0 OR 1? 
SKIP THIS TEST IF IT IS 
IS THERE ANY ROOM FOR SHARED MEMORY 
SKIP THIS TEST IF NOT 
SET A CLEAN STACK. 
DISMISS BUS -ERRORS. 
CLEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 



172516 
177572 



T$NAf€. 


.♦4 ;; PRINT 


TEST NUMBER AND NAME.. . 


BR 


30061$ j:...AND 


SKIP OVER THE ASCII. 


.ASCIZ 


\ SHARED MEMORY MAPPINGX 


.EVEN 






SPL 


7 :N0 INTERRUPTS 




MOV 


#INT134.a#134 ; INTERRUPT ROUTINE ADDRESS 


MOV 


#PR7.a*136 jPRI 7 


MOV 


«INT120.S«120 




MOV 


#PR7.a*122 




JSR 


PC.PROMLO 


FIGURE OUT THE MAXimjM AMOUNT 


MOV 


aSKIPARS.RO 


OF ALLOCATED SHARED MEMORY THAT 


ADD 


#200. PO 


CAN BE WRITTEN WITHOUT CORRUPTING 


ASH 


#-7,R0 


THE CODE RUNNING IN THE K2 


MOV 


*64..R1 




SUB 


RO.Rl 




MOV 


Rl.MAXURT 


THIS IS THE MAX 


JSR 


PC.MMU 


GO INITIALIZE THE PDRS AND PARS 


MOV 


«20.a#172516 


DISABLE D SPACE 


MOV 


SP.8#U)PAR7 


SAVE THE STACK POINTER 


MOV 


#172300. SP 


[SET UP A STACK IN SUPR D PARS 


BIS 


#l,a#f1MR0 


jTURN ON MMU 



sFirst we'll establish a checksum for the diagnostic stuff resident in 
:the RAM 



051506 

177666 
175010 
177766 

000100 177530 

000130 

000132 

032502 000130 
000200 000132 

032572 175012 



1$: 



CLR 


R2 


MOV 


«LASTAD.R3 


aR 


Rl 


ADO 


CR1)*,R2 


CMP 


R3.R1 


BGE 


11 


MOV 


R2. 8*177666 


CLR 


M175010 


aR 


8*177766 


BIS 


«BIT06,S«K2CSRD 


MOV 


8*130. -CSP) 


MOV 


8*132. -CSP) 


MOV 


*3$.3#130 


MOV 


«PR4.^132 


SPL 


4 


MOV 


MAXURT. 8*175012 



:R2 WILL HOLD SUM IGNORING CARRIES 
J SAVE CHECK SUM 

CLEAR TPR4; IT WILL INDICATE UHICH 
ARBITER SIDE ERROR XCURREO 
aEAR CPU ERROR REGISTER 
ENABLE TPRS AND INTERRUPTS FROM 134 
SAVE VECTOR AT 130 



.-LOWER PRIORITY LEVEL 

jPUT MAX WRITE VALUE IN TPR5 



N9 
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4510 


032436 


012737 


VXX>404 


1 77CT'^ 

1 7 032 


4511 


032444 


032737 


040000 


177550 


4512 


032452 


001007 






4513 


032454 


012737 


AAil7AA 

004700 


04474© 




032462 


012737 


045206 


044 f52 




032470 


1 AA 1 *7A 

1041 74 






4514 


032472 


052 73 7 


ATAAAA 
030000 


• ' f 530 


4515 










4516 


032500 


OOOOOl 






4517 










451B 


032302 


02262O 






4519 


032504 


012O3 ' 


000132 




4520 


032510 


A1 9&T7 

012637 


AAA1 TA 
000130 




45«1 


AT9C1 A 

032514 


032 ( 3 ( 


V4UUUU 


i, ( r 33v 


ncc 


0dc3cc 


OUIW* 






45e3 


03232* 


012' 3/ 


UW* IVV 






03233c 


012 /3f 


A^e^/u; 
U43cUO 






03c3f 0 


lyrl ij 






AKOi. 


03c3*»c 






1 77^V> 




032550 


052737 


000040 


177530 


4526 


032556 


000001 






4527 










4528 


032560 


052737 


000030 


177530 


4529 


032566 


000001 






4530 


032570 


000776 






4531 


032572 


000000 







2»: 



31: 



4J: 



6(: 



MOV »404,9«K2QIR 

BIT «eiT14.a#K2CSRD 

BNE 2$ 

MOV «QIRER.EMAOR 

MOV «NOSIG.ESAOR 



J LET ARBITER KNOW WERE READY 
;UAS VECTOR WRITTEN? 



MAXURT: 



>> ERROR 174. QIR ERROR 
ERR0R»174 ;:// 
BIS #<BIT13!BIT12>.S#K2CSRD ; ENABLE QIR TO INTERRUPT ARBITER 

: . .AND NOTIFY VIA 130 

UATT 

CMK 
MOV 
MOV 
BIT 
BEQ 

MOV #QIRER.EMADR ssW 
MOV MQSIG.ESADR >> 
ERROR* 175 ;;// 

BIC 
BIS 
WAIT 

BIS 
WAIT 

BR 6$ 
.WORD 0 



(SP)».CSP)* 
CSP)*.a*132 
CSP)*. 3*130 
46IT14,S«K2CSRD 
4$ 

MIRER. EMAOR 
MQSIG.ESADR 
175 

«6IT13.S«K2CSRD 
46IT05,9#K2CSRD 



^<BIT04!BIT03> .a#K2CSRD 



FAKE THE RTI 

RESTORE VECTOR 

WAS BIT 14 CLEARED BY lAK? 



ERROR 175. QIR REQUEST WAS NOT CLEARED BY lAK 



DISABLE lAK INTERRUPTS 
ENABLE INTERRUPTS VIA 134 
AND WAIT FOR IT TO INTERRUPT 

WITH START UP INFORMATION 
ENABLE INTERRUPT FROM 124 £ 120 
WAIT FOR ARBITER TO SIGNAL IT IS DONE 



BiO 



KXJll CA FUNCTIONAL TEST 

Tl* SHAPED MEMORY MAPPING 



4533 








4534 








4535 








4536 








4537 








4538 


032574 


010046 




4539 


032576 


010146 




4540 


032600 


010246 




4541 


032602 


010346 




4542 


032604 


013700 


175026 


4543 


032610 


001434 




4544 


032612 


013701 


175030 


4545 


032616 


010137 


177534 


4546 


032622 


010103 




4547 


032624 


020027 


000100 


4548 


032630 


101024 




4549 


032632 


010002 




4550 


032634 


062701 


000200 


4551 


032640 


077003 




4552 


032642 


162701 


000200 


4553 


032646 


010137 


177536 


4554 








4555 








4556 








4557 


032652 


072327 


177771 


4558 


032656 


060203 




4559 


032660 


005403 




4560 


032662 


042703 


177700 


4561 


032666 


050337 


177536 


4562 








4563 


032672 


052737 


000004 


4564 


032700 


000407 




4565 


032702 







4566 
4567 
4566 
4569 
4570 
4571 
4572 
4573 
4574 



032702 
032710 
032716 
032720 
032722 
032724 
032726 
032730 

032736 
032740 



012737 
012737 
104176 
012603 
012602 
012601 
012600 
012737 

000002 
200 



032740 
045206 



000374 
116 
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INTERRUPT ROUTINE UILL ACCEPT VW.UES PASSED IN TPRS 11£12 .THE NUMBER 

OF BLOCKS TO BE ALLOCATED TO SHARED MEMORY AND THE STARTING Q BUS ADDRESS 

OF SHARED MEMORY RESPECTIVELY 



Xrii 13#: 


nuv 


RO.-CSP) 






nuv 


Rl.-CSP) 






Mnu 
nuv 


R2. CSP) sSAVE REGS 




nuv 


R3.-CSP) 






MOV 


9«175026.R0 


SAVE NUMBER OF BLOCKS TO SHARE 




BEQ 


5* 


ERROR IF ZERO 




MOV 


a#l 75030, Rl 


AND STARTING Q BUS ADDRESS 




MOV 


Rl.a«<2CSRF 


LOAD K2CSRF WITHSTARTING QBUS ADDR 




MOV 


R1.R3 


AND R3 FOR LATER USE 




CMP 


R0,#64. 






BHI 


5$ 






MOV 


R0.R2 


iSAVE NUMBER OF BLOCKS IN R2 




ADO 


*200.R1 


i CALCULATE ENDING ADDRESS 




SOB 


RO.l* 






SUB 


*200.R1 


ieUMP IT DOWN BY ONE BLOCK 




MOV 


R1.S4K2CSRH 


;LOAD ENDING Q BUS ADDRESS 



CALCULATE NUMBER OF BLXKS FIELD FOR K2CSRH 



177540 



044746 
044752 



177532 



5*! 



6^ 



125 6LKER: 
.EVEN 



ASH *-7.R3 

ADD R2.R3 

NEG R3 

BIC #tC77,R3 

BIS R3.a«K2CSRH 

BIS «BIT02.8«K2CSRJ 

BR 61 

MOV 46LKER.EMADR 

MOV «N0SIG.ESA0R 
ERR0R*176 

MOV CSP)*.R3 

MOV CSP)».R2 

MOV (SP)*.R1 

MOV CSP)»,RO 

MOV «374.S«K2QIR 

RTI 

.ASCIZ <CRLF>/NUMBER OF 



SHIFT STARTING ADDRESS DOWN 

ADD NUMBER OF BLOCKS 

PUT NUMBER OF BLOCKS IN CSRH FORMAT 

STRIP OFF UNNEEDED BITS 

LOAD SHARED BLOCKS FIELD 

: ENABLE SHARED MEMORY ONTO QBUS 



W 

» ERROR 176. NUMBER OF BLOCKS FIELD IS INCORRECT 
// 



J TELL ARBITER THAT SHARED MEMORY IS 
: ENABLED: GO URITE IT. 

BLKS NOT VALID/ 



CIO 



KXJll-CA FUNCTIONAL TEST 
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INT 120' 

X' V ■ XwV • 










013706 


177676 






MOV 


30UDPAR7 . SP 


: RESTORE OLD STACK 


*»Oj~ yJOC t 










MOV 


3^175010 Rl 




•rOOv vJ^VA/c 










TST 


Rl 


:IS ARBITER REPORTING AN ERROR? 
•NO MUST BE DONE TlSTING 




001 4P4 








BEQ 


ENDSW1 




005301 








DEC 


Rl 






072127 


000004 






ASH 


*4.R1 






000161 


033020 






JMP 


1$(R1) 




46AS OT^OPO 








1$: 








035020 


012737 


033076 


044746 




MOV 


#SHM1,EMADK 


; ;\\ 


033026 


012737 


045206 


044752 




MOV 


«N0SIG.ESA0R 


!! >> ERROR 177. SHARED MEMORY OUT OF ASSIGNED 
:;// 


033034 


104177 








ERR0R*177 


4666 033036 


000407 








BR 


ENDSW1 




4667 033040 


012737 


055144 


044746 




MOV 


#SHM2.EMA0R 


:;\\ 


033046 


012737 


045206 


044752 




MOV 


«N0SIG.ESA0R 


» ERROR 200. SHARED MEMORY TIMED OUT 
;;// 


033054 


104200 








ERROR* 200 


4668 033056 


005037 


177550 




ENDSHH: 


CLR 


S4K2CSRD 


:ALL INTERRUPTS OFF 


4669 033062 


042757 


000004 


177540 




BIG 


•8IT02. 8#K2CSRJ jTURN OFF SHARED MEMORY 


4670 033070 


005057 


177572 






aR 


a«HHRO 


;MMU OFF 


4671 053074 








51: 








055074 


000457 








BR 


TST15 : : 

/SHARED MEMORY OUT OF ASSIGNED BOUNDRY/ 


4672 055076 


125 


110 


101 


SHMl: 


.ASCIZ 


4675 055144 


125 


110 


101 


SHn2: 


.ASCIZ 


/SHARED MEMORY 


TIMED-OUT/ 


4674 








.EVEN 









DIO 



KXJll-CA FUNCTIONAL TEST 
T15 SHARED ftMORY LMGH 

4676 



4677 



4678 
4679 
4660 
4661 
4662 
4663 
4684 
4685 
4686 
4687 
4688 
4669 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4696 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 



033174 


000004 






033176 


032737 


000340 


177524 


033204 


001413 






033206 


005737 


050754 




033212 


001410 






033214 


012706 


001100 




033220 


012737 


111111 


002426 


033226 


005037 






033232 


000402 






033234 


000137 


037176 




033240 


104415 


033246 




033244 


000413 






033246 


040 


040 


123 


033274 








033274 


t 






033274 


042737 


000004 


177540 



033310 
033314 
033320 
033324 
033332 
033336 
033342 
033146 
033350 
033352 
033356 
033362 



033370 
033374 
033402 

033410 
033416 
033420 
033424 
033430 
033432 
033436 



013700 
013702 
062700 
013737 
163700 
072027 
072227 
060200 
005400 
042700 
050037 
052737 



004737 
012737 
012737 

052737 
005000 
012702 
01Z701 
010022 
062700 
077104 



050752 
050752 
000200 
050752 
050752 
177771 
177771 



177700 
177536 
000004 



001462 
000020 
017600 
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:*TEST 15 SHARED MEMORY LMGH 

i t *************************************************************** 



TST15: 



30062>: 
300631: 



SCOPE 
BIT 
BEQ 
TST 
BEQ 
MOV 
MOV 

aR 

BR 
JMP 

T*NAME. 
BR 

.ASCIZ 
.EVEN 



«340.a«<2CSRC 

30062i 

MAXBLK 

30062« 

«TACK.SP 

*-l.TRAP4X 

EMPRE 

30063$ 

TST16 

-♦4 

30064$ 

\ SHARED MEMORY 



IS THE ID SUITCH IN POSITIONS 0 OR 1? 

SKIP THIS TEST IF IT IS 
IS THERE ANY ROOM FOR SHW?EO MEMORY 
SKIP THIS TEST IF NOT 

SET A aEAN STACK. 

DISMISS BUS-ERRORS. 

CLEAR ERROR PREFIX. 

SKIP NEXT. 

BYPASS. 

PRINT TEST NUMBER AND NAME... 
...AND SKIP OVER THE ASCII. 
LMGH\ 



30064$: 

!*TEST 15.1 OTC DMA ACCESSES TO SHARED MEMORY 

T15.1:- 

{THE SHARED MEMORY MAPPING TEST MUST PASS PRIOR TO RUNNING THIS TEST 

{DISABLE SHARED MEMORY 



033302 013737 050752 177534 



SIC «BIT02.a«K2CSRJ 
{ENABLE ONE BLOCK OF SHARED MEMORY 
{ LOAD LOUEST Q BUS ADDRESS OF SHARED MEMORY 



177536 



177540 



172516 
172352 



MOV 
{NOU FIGURE 
MOV 
MOV 
ADO 
MOV 
SUB 
ASH 
ASH 
ADO 
NEG 
6IC 
BIS 
BIS 



L0ULIM.a«177534 
SHARED MEMORY'S HIGHEST 
LOULIM.RO 
L0ULIM,R2 
#200. RO 

L0ULIM,9«K2CSRH 

LOULIM.RO 

#-7.R0 

#-7.R2 

R2.R0 

RO 

#tC77.R0 

R0.8«K2CSRH 

«BIT02.a«K2CSRJ 



{SET LOU LIMIT OF 
QBUS ADDRESS LIMIT 



SHARED MEMORY 



{MAKE SHARED MEMORY ONE BLOCK LONG 
{LOAD HI LIMIT OF SHARED MEM IN CSRH 
{GET NUMBER OF BLOCKS 



CLEAR AWAY UN-NEEDED BITS 
LOAD NUMBER OF BLOCKS FIELD 
ENABLE SHARED MEMORY 



sINIT MEMORY TO BE SHARED FROM THE K2 (LOCAL) SIDE UITH A PATTERN THAT 
{INCREMENTS 'Y 2 STARTING UITH ZERO AT THE LOUEST SHARED MEMORY LOCATION 



000001 177572 

120000 
010000 

000002 



1$: 



JSR PC.MMU 

MOV #20,»172516 

MOV #17600. a«KIPAR5 

BIS #l.a«MMRO 

CLR RO 

MOV #120000.R2 

MOV #4096., Rl 

MOV R0.(R2)» 

ADD «2.R0 

SOB Rl,l$ 



INIT MMU PARS AND PDRS 
22 BIT ADDRESSING; NO D SPACE 

KIPAR5 UILL POINT TO LAST 8KB BLOCK 
OF LOCAL MEMORY 

ENABLE MMU 



INIT 4KU OF MEMORY 
URITE MEMORY UITH CONTENTS OF RO 
INCREMENT RO BY 2 
LOOP CONTRX 



{DO A OTC CONTROLLED TRANSFER OT THE DATA IN SHARED MEMORY TO LOCAL MEMORY 



ElO 
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4713 
4714 

4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 



4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 



4757 



033440 
033444 



012705 
004737 



034546 
034762 



033450 004737 034510 



033454 
033460 
033464 

033470 
033474 



033500 
033504 
033510 
033512 
033514 
033522 
033530 
033532 



033534 
033540 



033544 
033550 
033554 
033556 
033560 
033566 
033574 
033576 



012705 
004737 
004737 

012705 
004737 



012702 
012703 
022223 
001407 
012737 
012737 
104201 
077112 



012705 
004737 



012702 
012703 
022243 
001407 
012737 
012737 
104202 
077112 



034564 
034762 
034510 

034602 
034762 



120000 
130000 



036544 
045206 



034620 
034762 



120000 
140000 



036544 
045206 



044746 
044752 



044746 
044752 



MOV #100*. R5 
JSR PC.SHMXFR 
s RETURN HERE AFTER SUCCESSFUL DTC XFER. 



POINT TO TABLE THAT HOLDS DTC XFER 
PARAMETERS 

GO TO SUBROUTINE THAT LOADS PARAMETERS 
INTO DTC 



JSR 



PC.32» 



; CHECK RESULTS OF TRANSFER FROM SHARED 

;MEMORY TO LOCAL MEMORY 

;00 A DTC CONTROLLED TRANSFER OF THE DATA IN SHARED MEMORY TO LOCAL MEMORY 

sSO THAT THE PHYSICAL ADDRESSES ARE THE SAME. 

pQj^^ ^^^^ ^jjg jj^j. j^P^p 

PARAMETERS 

GO TO SUBROUTINE THAT LOADS PARAMETERS 
INTO DTC 

JSR PC, 32$ 



MOV 

JSR 



*101*,R5 
PC.SrtlXFR 



! CHECK RESULTS OF TRANSFER FROM SHARED 
{MEMORY TO LOCAL SHARED MEMORY. 
;D0 A DMA TRANSFER FROM QBUS SHARED MEMORY TO QBUS SHARED MEMORY 

MOV *102*.R5 jPOINT TO TABLE THAT HOLDS DTC XFER 

•PARAMETERS 

JSR PC.SHMXFR ':G0 TO SUBROUTINE THAT LOADS PARAMETERS 

;INTO DTC 

CHECK RESULTS OF TRANSFER FROM SHARED MEMORY TO SHARED MEMORY; 
CHECK 2048 WORDS OF DATA TRANSFERED. 



50$: 
51$: 

52$: 



MOV *120000,R2 

MOV *130000.R3 

CMP CR2)*.CR3)* 

BEQ 52$ 

MOV *LMGH3,EMADR 

MOV #NOSIG,ESADR 
ERROR ^201 

SOB R1.51« 



POINT TO LOWER HALF OF SHARED MEM 
POINT TO UPPER HALF OF SHARED MEM 
DATA SHOULD BE THE SAME IN EACH HALF 



>> ERROR 201. DATA NOT TRANSFERED CORRECTLY 



sLOOP CONTRX 



NOW DO A TRANSFER FROM SHARED MEMORY TO SHARED MEMORY HAVING THE DTC 
TRANSFER DATA FROM THE LAST LOCATION IN MEMORY TO THE FIRST LOCATION ETC. . 



NOV 
JSR 



»103$.R5 
PC.SHMXFR 



POINT TO TABLE THAT HOLDS DTC XFER 
PARAMETERS 



{RETURN HERE TO CHECK TRANSFER FROM SHARED MEM TO SHARED MEM 



551: 
56$: 



57$! 



MOV «120000.R2 

MOV »140000.R3 

CMP (R2)*,-(R3) 

BEQ 57$ 

MOV •LMGH3,EMA0R 

MOV «NOSIG.ESADR 
ERR0R*202 

SOB R1.56$ 



POINT TO BOTTOM OF SHARED MEMORY 
POINT TO TOP OF SHARED MEMORY 



ERROR 202. DATA NOT TRANSFERED CORRECTLY 



no 
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4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 



4780 
4781 
4782 
4783 



4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 



033600 



035600 
033606 
033610 
033614 

033620 
033626 
033632 
033640 
033646 
033654 
033662 
033664 
033672 
033674 
033702 
033710 
033712 
033714 
033722 
033724 
033732 
033740 
033742 

033746 



601: 

RO<JTINE TO SET UP FOR TESTS USI^C THE KNOWN GOOO lOP. FIRST IT MUST BE ENSURED 
THAT THE KNOWN GOOO lOP RESPONDS TO COftlANDS. ONCE THAT HAS BEEN SWWN IT WILL 
BE COMMANDED TO EXECUTE A DMA TRANSFER OF 4 K WORDS FROM QBUS SHARED MEMORY TO 
THE mm GOOD lOP THEN IT WILL TRANSFER 2K WORDS FROM THE KNOWN GOOO lOP BACK 
TO QBUS SHARED MEMORY. 



MEM 



VX Iff 


A1 AAAA 






PTT 
DX 1 


«BIT12.aSWR 




; xo 1 rcKC n ivrauMn uuuu xur ; 










RPO 
DCU 


65* 






f\* T7AA 








nu» 


L(M.IM,RO 






\AJt 1 3 f 










PC.POPDTC 




• PI IT ^TARTTUn ADTtRF^^ Cf (^HARFTt 

• TNTfl nir PflPMAT 
1 xni 1 u \j r unnn i 


ft*>37'?7 








BIS 


*<QBMEM!UP>.CARAHI 












CLR 


S«CHA2H 






nip7'»7 




1 7444A 




MOV 


«66».9«CHA2L 






vXC 1 Of 








MOV 


«aiE2.a«CMDR 




•DTSARLF TNTFRRIPTS 


vie I J 1 




1 74dS4 




MOV 


#SCCCH2.a*CMDR 




• TSSUF <;TART tHAIN COMMAND 






1 744S4 




BIT 


*14000.a#STAT2 




•WAIT FOR IT TO BE DONE 


001774 








BEQ 


63$ 






032737 


000002 


174454 




BIT 


#E0P.a#STAT2 




;NXM? 


001410 








BEQ 


62* 






012737 


020451 


044746 




MOV 


*DMA3.EMADR 


!\\ 




012737 


045206 


044752 




MOV 


«N0SIG.ESA0R 


; >> 


ERROR 203. 


104203 








ERROR* 203 


;// 




000413 








BR 


65* 






032737 


000001 


174454 


621: 


BIT 


#TC.a*STAT2 




;WAS TRANSFER SUCCESSFUL? 


001031 








6NE 


64* 






012737 


020513 


044746 




MOV 


#0MA4,EMADR 


!\\ 




012737 


045206 


044752 




MOV 


«N0SIG.ESADR 


t; >> 
is// 


ERROR 204. 


104204 








ERR0R«204 




000137 


034342 




65«: 


JMP 


35* 







66*: ; CHAINS TO LOAD ADDRESSES IN QBUS MEMORY WITH STARTING ADDRESS 
;0F SHARED MEMORY 



033746 
033750 
033754 
033760 
033762 


001602 
000000 
100000 
000002 
000030 


037042 
056476 

100140 






< CARA !CARB! COP! MODE > 
<K2MEM!UP>,CARAHI 
<QBMEM!UP>.KG»T06*2 
2 

<SWRQ!HM> , <CTC! TRUU! INTLV> 


033766 
033770 
033774 
034000 
034002 


001602 
000000 
100000 
000002 
000030 


037042 
056516 

000140 






<CA?A!CARB!C0P!M00E> 
<K2MEM!UP>.CAftAHI 
<Q8MEM!UP>.KG*T07*2 
2 

< SWRQ ! HM> . < TRUU ! INTLV> 


034006 
034014 


012737 
012705 


010000 
034636 


001372 


64*: 


MOV 
MOV 


#10000. DCOUNT 
«104*.R5 


034020 


004737 


034762 






JSR 


PC.SHMXFR 


034024 
034030 


012705 
004737 


034654 
034762 






MOV 
JSR 


#105*.R5 
PC.SHMXFR 


034034 
034034 
034042 


012737 
012737 


034322 
000241 


174440 
174454 


70*: 


; COMES HERE AFTER TRANSFERS 
MOV *77*.a«:HA2L 
MOV #SCCCH2,S#CMDR 



} SET UP A COUNT LOCATION TO BE DECREMENTED 
; POINT TO START OF lABLE WITH DTC 
■PARAMETERS 

IgO TO SUBROUTINE THAT LOADS PARAMETERS 
5 INTO OTC 

{GO TO SUBROUTINE THAT LOADS PARAMETERS 
sINTO OTC 



; ISSUE START CHAIN COMMAND 



biO 
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4812 


034050 


032737 


A4 M AAA 

014000 


4 ^A ACA 

174454 


7B»: 


OTT 
Bl 1 


41AAAA aACTATO 


4813 


034056 


AA4 T T it 

001774 








OCT A 


7Q e 

78 » 


4814 


034060 


005000 








CLR 


DA 
HO 


4815 


034062 


077001 








CAO 

SOD 


DA 
HO, . 


4816 


034064 


032737 


000002 


f 7A A CA 

1 f4454 




BIT 


«E0P.a#STAT2 


4817 


034072 


AA4 ^44 

001414 








BEQ 


79* 


ii A 4 A 

4818 


034074 


032737 


AAA/HA A 

000040 


1 77CAA 

17^540 




BIT 


«eiT05.9«K2CSRJ 


48i9 


034102 


001071 








WE 


71* 


4820 


034104 


Ai ^^TT 

012737 


020315 


AAA7A^ 

044 f4o 




MOV 


#0MA4.EMADR ; 




034112 


012737 


045206 


AA A 7SCO 

044 '52 




MOV 


«N0SIG,ESA0R ; 




034120 


104203 








ERROR *205 : 


4821 


034122 


A/\ACA7 

000507 








BR 


80$ 


'*o22 


MA 1 '^il 

034124 


052757 


AAAAA1 
000001 


1 7AACA 

1 '4454 


70€ . 


BIT 


*TC.a#STAT2 


4825 


ATA 1 

034132 


/VM AA7 
OOlOOr 








BNE 


73$ 


A QOil 

4824 


ATjI 1 TA 

034154 


A1 07T7 

012 1 il 


020431 


AAA7A& 
044 '4f> 




MOV 


«0MA3.EMA0R : 




ATA 1 A O 

054142 


A1 07T7 

012 r 5 / 


04320D 


044 '52 




MOV 


MOSIG.ESADR : 




ATA 1 CA 

054130 


104206 








ERRCIR*206 : 


4823 


ATA 1 CO 

054132 


AnP7T7 

003 f 5 f 


AA1 A1 O 

001412 




7X4 . 
'3* ! 


TST 


TSTLOC 


'*Ocb 


ATA 1 

05413O 


<VM AAT 
001045 








BNE 


71$ 


Att07 

•HJ2 ( 


ATA 1 AA 

U541DV 


052 1^1 


140000 


AAt A1 A 
001414 




BIT 


*140000.TSTLOC*2 


4820 


ATA 1 £iL 

0541OO 


AA1 AA7 
00140 1 








BEQ 


72$ 


4829 


ATA 1 7A 


A1 57T7 

012 1 Ol 


O2cvllo 


rtAA7AA 
/HO 




MOV 


*KG.ER,EMADR : 




ATA1 7fc 
U541 fO 


A1 07T7 
012 1 3 f 


043200 


044 ' 3c 




MOV 


*N0SIG,ESADR s 




ATAOAA 
U542v4 


10420 1 








ERR0R*207 ; 




054200 


AA07T7 
042 f 5 f 


1 mm 

1.1 1 1 l\l 


AAI A1A 


73* . 


BIC 


*tC7,TSTL0C*2 




ATA31 A 
U54£iH 


Occ r 3 f 


OVvW4 






CMP 


#4.TSTL0C*2 




nTA333 
U04eec 


OOlOcX 








BNE 


71$ 














: TRANSFER UAS SUCCESSFUL. 


AAXA 


U54224 


012 r02 


1 3Aft<V> 






MOV 


*120000.R2 




U5425U 


Olc r03 


1300vv 






MOV 


#130000, R3 




054204 


A1 37A1 

012 '01 


VV4WV 






MOV 


#2048.. Rl 


AAT7 


034240 


022223 






'^» ! 


CMP 


(R2)^.(R3)* 


AAVA 
















AATO 


ATAOAO 
054242 


AA 1 Art7 
0014U / 








BEQ 


76$ 


*»0*»U 


ATA3AA 
034244 


rtl 37T7 
012 1 3 r 


030344 


AAA7AA 
V44 ' 40 




MOV 


4LMGH3.EMADR ; 




034c3c 


A1 07T7 
Olc r 3 f 


043cUD 


nAA7^3 
044 '3c 




MOV 


«N0SIG.ESADR : 




0342D0 


104210 








ERR0R*210 ! 


AAA 1 


0342O2 


Or' 112 






7A4 • 


see 


R1.75$ 


AAAO 
•♦042 


ATAOtA 
054204 


000420 








BR 


80$ 




034eOD 




OVAA^W 


1 ' I 34v 


71 4 • 

rl V : 


BIC 


«6IT05.S«K2CSRJ 


AAAA 


0542 f 4 


00333 f 


rtfti T73 
v013 f 2 






DEC 


DCOUNT 


AAAC 
4843 


0545UU 


001233 








BNE 


70$ 


AAA& 
404D 
















AAA7 
404 f 


O34302 








7At • 

'*♦ : 








03430e 


012 r 5 ' 


021 r30 


nAA.7A& 
044 '40 




MOV 


«KGNR,EMA0R ; 
«N0SI6.ESADR 




054310 


012 fSf 


043200 


AAA7<\3 
044 '32 




MOV 




03431D 


104211 








ERROR *211 : 


AAAA 
4040 


034 320 


000410 








BR 


80$ 


AAAQ 
404^ 


034522 


001002 






77* . 


< CARA !CARB! COP! MODE > 


4030 


ATA T OA 

054324 


1 A AAAA 

140000 


1 7«:7AA 

1 /3/40 






<QBUSI0!UP>. 175740 


4B51 


034330 


000000 

www 


001412 






<K2MEM!UP>.TSTL0C 


4852 


034334 


000002 








2 




4853 


034336 


000030 


000140 






< SURQ ! HM> , < TRUU ! INTL V> 


4854 


034342 








80$: 






4855 
















4856 










! CHECK 


TO SEE 


IF A Q-BUS EXERCISE 


4857 










: ADDRESS 770000 FIRST. IF NONE IS 



:SPIN HERE 



jUAIT FOR LATE EOP 
jEOP SET? 

5 UAS EOP CAUSED BY SACK TIMING OUT? 
:\\ 

>> ERROR 205. 

RETURN TO NEXT SERIES OF TESTS 
WAS TRANSFER COMPLETE? 

;\\ 

» ERROR 206. 
;// 

sis TPRO OF KG lOP ZERO? 
;ANY ERRORS IN KGIOP? 

\\ 

>> ERROR 207. 
// 

CLEAR OFF UN-NEEDED BITS 
IN WAITING FOR COMMAND STATE? 



INIT LOOP COUNTER 

TOP 2 KUORDS OF SHARED MEM SHOULD » 
LOWER 2 KUORDS OF SHARED MEM. 

;\\ 

! » ERROR 210. DATA NOT TRANSFERED CORRECTLY TO/FROM KG lOP 
;// 

sLOOP CONTROL 

CLEAR OUT SACK TIME OUT BIT 
GIVE IT A FEU CHANCES 
WHEN DCOUNT GETS TO ZERO ITS HAD 
ENOUGH TIME. FLAG AN ERROR 

;\\ 

; >> ERROR 211. KNOWN GOOD lOP WENT TO LUNCH 
.•// 



HiO 
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4858 

4859 
4860 
4861 
4862 
4863 
4864 
4865 

4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 



4888 
4889 



034342 
034350 
034352 
034360 

034362 
034366 
034372 
034374 
034402 
034404 
034412 
034414 
034422 

034426 
034432 
034436 
034442 



034446 
034450 
034452 
034456 
034462 
034464 
034472 
034500 
03450<f 
034504 



022737 
001011 
023727 
103005 

004737 
012705 
000421 
022737 
001007 
022737 
101005 
023727 
000137 

00473-' 
01270b 
004737 
004737 



005002 
077201 
012702 
022227 
001407 
012737 
012737 
104212 
077113 
000137 



000001 
050752 



037052 
034672 

000001 

007600 

050756 
035226 

037076 
034726 
034762 
034762 



120000 
063636 

036544 
045206 



035226 



050760 
007600 



050756 
050752 
000026 



044746 
044752 



s 17770020. IF BOTH ARE RESIDENT ONLY THE 18 BIT QBE UILL BE USED. 



35$: CTP *l.a#QBE18 

BNE 36$ 

CMP LOULIM.#7600 

BHIS 36$ 
:GET ADDRESS FORMAT OF LOULIM FOR QBE18 

JSR PC.Q18A0R 

MOV «106$.R5 

BR 37$ 

36$: CMP »l,a«QBE22 

BNE 39$ 

CMP #7600. LOULIM 

BHI 38$ 

CMP .ABUSU.*22. 

39$ : JMP SHMXIT 
;GET ADDRESS FORMAT OF LOULIM FOR QBE22 

38$: JSR PC.Q22ADR 

MOV *107$,R5 

37$: JSR PC.SHMXFR 

JSR PC.SHMXFR 



.IS THERE AN 18 BIT Q-BUS EXERCISER 

;IF LOULIM IS OUT OF RANGE OF 18 BITS 
sTHEN BAIL OUT 



IS THERE A 22 BIT QBE? 
NO QBES PRESENT 

00 UE NEED 22 BITS TO ACCESS SHARED 
MEMORY AND IF SO DOES THE SYSTEM 
SUPPORT IT? 



oAD POINTER WITH TABLC DATA 



CHECK TRANSFER FROM QBE TO SHARED MEMORY 
400$: 



CLR R2 

SOB R2, . 

MOV #120000. R2 

402$: CMP (R2)*, #63636 

BEQ 401$ 

MOV #LMGH3.EMA0R 

MOV ONOSIG.ESADR 
ERROR ♦212 

401$: SOB R1.402$ 

JMP SHMXIT 



iUAIT A BIT 



J » ERROR 212. BAD DATA TRANSFER FROM QBE TO SHARED MEM 
;// 

;BAIL OUT AFTER ERROR 



110 
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4891 
4892 
4893 

4894 034510 

4895 034514 
48% 034520 

4897 034522 

4898 034524 
034532 
034540 

4899 034542 

4900 034544 



012702 
012703 
022223 
001407 
012737 
012737 
104213 
077112 
000207 



120000 
061022 



036544 
045206 



044746 
044752 



SUBROUTINE TO CHECK TRANSFERS FROM SHARED MEM TO LOCAL 
COMPARE THE DATA TO ENSURE THAT THINGS UENT OK 

32* : MOV #120000. R2 

MOV «UFR1,R3 

33*: Of (R2)'.(R3). 

BEQ 34« 

MOV «LMGH3.EMA0R 

MOV 4N0SIG.ESA0R 
ERROR »213 

34«: SOB R1.33$ 

RTS PC 



J >> ERROR 213, DATA NOT TRANSFERED CORRECTL^f 
;// 

Rl UAS INITIALLY LOADED WITH OP COUNT 



^ (J 
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4902 


034546 








4903 










4904 










4905 


034546 


050752 


000000 


100000 


4906 


034564 








4907 










4906 










4909 










4910 


034564 


172352 


000000 


000000 


491i 


U34602 








4912 










4913 










4914 


034602 


050752 


000000 


100000 


4915 


034620 








4916 










4917 










4918 










4919 


034620 


050752 


000000 


lOOOOO 


4920 


034636 








4921 










4922 


034636 


172340 


056466 


100000 


4923 


034654 








4924 










4925 


034654 


172340 


056472 


100000 


4926 


034672 








4927 










4928 


034672 


172340 


037142 


000000 


4929 










4930 










4931 


034710 


172340 


050760 


000020 


4932 


034726 








4933 










4934 


034726 


172340 


037142 


000000 


4935 










4936 










4937 


034744 


172340 


050756 


000020 


4938 










4939 










4940 


034762 








4941 










4942 










4943 










4944 










4945 










4946 










4947 










4948 


034762 


005037 


174454 




4949 


034766 


012737 


000115 


174470 


4950 


034774 


005037 


174446 




4951 


035000 


012737 


035202 


174442 


4952 


035006 


013500 






4953 
1954 


035010 


004737 


036764 




035014 


013737 


037042 


035204 


4955 


035022 


013737 


037044 


035206 


4956 


035030 


062537 


035206 




4957 


035034 


052537 


035204 




4958 


035040 


013500 







40%. 



40%. 



2048. 



2048. 



100(: 

; JRST TRANSf^ER 

't --DATA FOR TRANSFER FROM QBUS SHARED MEMORY TO LOCAL MEMORY- 

LOULIM. 0. <QBMEM!UP>. LCLMEM. 8UFR1. <K2MEM!UP>. 

101 »: 

;- -SECOND TRANSFER 

...-DATA FOR TRANSFER FROM LOCAL SHARED MEMORY TO QBUS SHARED MEMORY- -- 

. SAME PHYSICAL ADDRESSES 

•aPAR5. 0. <K2MEM!UP>, LOULIM. 0. <QeMEM!UP>. 

102$: 

. THIRD TRANSFER 

i- DATA FOR TRANSFER FROM QBUS SHARED MEM TO QBUS SHARED MEM- 

LOULIM, 0, <QBMEM!UP>. LOULIM. 10000, <QeMEM!UP>, 

103*: 

; ---FOURTH TRANSFER 

;---N0U FOR SOMETHING COMPLETELY DIFFERENT; SOURCE ADDRESS INCREMENTS 
J ---WHILE DESTINATION DECREMENTS 

LOULIM, 0. <QBMEM!UP>, KIPAR5. 17776, <K2MEM!D0WN> . 

104*: 

J- -TRANSFER PARAMETERS TO TPR2 AND 3 OF GOOD lOP 

KIPARO. KG$T04. <QBMEM!UP>. KIPARO. 1"'5744, <QBUSIO!UP>. 

105$: 

...-TRANSFER COMMAND TO D^IA LOAD CHAIN INTO KNOWN GOOD lOP 

KIPARO. KG*T05. <QBMEM!UP>, KIPARO. 175740. <QBUSI0!H0LD> . 

106$: 

{---TRANSFER TO INIT THE 18 BIT QBUS EXERCISER 

KIPARO. QBLOAO, <K2MEM!UP>. KIPAR7. 10000. <QBUSIO!UP>, 

;-— TRANSFER TO SET THE GO BIT IN CSR2 OF THE 18 BIT QBE 

KIPARO. QBE18. <K2MEM!H0LD> . KIPAR7. 10002. <QBUSIO!UP>. 

107$: 

; ---TRANSFER TO INIT 22 BIT QBUS EXERCISER 

KIPARO, QBLOAD. <K2MEM!UP>, KIPAR7. 10020, <QBUSI0!UP>, 

; ---TRANSFER TO SET THE GO BIT IN CSR2 OF THE 22 BIT QBE 

KIPARO. QBE22, <K2MEM!H0LD>. KIPAR7. 10022, <QBUSIO!UP>. 

SHMXFR: 

{SUBROUTINE TO INITIATE AN DTC DMA TRANSFER TO/FROM SHARED MEMORY. 

! ON ENTRY: R5- START OF TABLE TO LOAD XFER PARAMETERS INTO A 

J CHAIN FILE THAT WILL BE LOADED INTO DTC CHIP. 

TOP 8KB OF LOCAL MEMORY IS ENABLED AS SHARED MEMORY 
, TO QBUS. 



15$: 



CLR 9«CM0R 

MOV #115.a#MMR 

CLR 9<k:haih 

MOV #25$.a#CHAlL 

MOV a(R5)*.R0 

JSR PC.POPDTC 

MOV CARAHI.26$ 

MOV CARAL0.27$ 

*DD CR5)»,27$ 

BIS (R5)».26$ 

MOV a{R5)*.R0 



; RESET THE DTC 
; SET UP THE DTC 

IlOAD CHAIN ADDRESS 

{PUT ADDRESS IN DTC FORMAT 



KIO 
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4959 
4960 
4%1 
4%2 
4%3 
4964 
4%5 
4966 
4%7 
4%8 
4%9 
4970 
4971 
4972 



4973 
4974 
4975 



4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 



035042 
035046 
035054 
035062 
035066 
035072 
035074 
035100 
035106 
035114 
035122 
035124 
035132 
035134 
035142 
035150 
035152 
035160 
035162 
035170 
035176 
035200 



49% 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 



035202 
035204 
035206 
035210 
035212 
035214 
035216 
035222 

035226 
035232 
035240 
035246 



035252 
035252 
035252 
035260 
035266 
035272 
035300 
035304 
035312 
035320 
035326 

035332 
035340 



004737 

013737 
013737 
062537 
052537 
012501 
010137 
012737 
012737 
032737 
001774 
032737 
001407 
012737 
012737 
104214 
032737 
001007 
012737 
012737 
104215 
C00207 



001603 
000000 
000000 
000000 
000000 
000000 
000010 
000000 

005037 
042737 
042737 
005037 



052737 
012737 
005037 
012737 
005037 
012737 
012737 
012737 
004737 

012737 
032737 



036764 
037042 
037044 
035212 
035210 

035214 
000240 
000102 
014000 



035210 
035212 



174454 
174454 
174456 



000002 174456 



020513 
045206 



044746 
044752 



020451 
045206 



044746 
044752 



000240 
035202 

177572 
000004 
176000 
037146 



177540 
037142 



000004 
076543 
174454 
000135 
174444 
000061 
035544 
000010 
036330 

000241 
014000 



177540 
001412 

174470 

174454 
174440 
175012 



174454 
174454 



14$! 



000001 174456 12* : 



JSR 


PC.POPOTC 




:PUT ADDRESS IN DTC FORMAT 


MOV 


CARAHI,28$ 








MOV 


CARAL0,29$ 








ADD 


(R5)*,29$ 








BIS 


(R5)*,28* 








MOV 


(R5)*.R1 






LOAD Rl FOR CHECK ROUTINES 


MOV 


R1.24$ 






LOAD OP COUNT 


MOV 


#SCCCHl.a#CMDR 






ISSUE START CHAIN COMMAND CHI 


MOV 


«SSRCHl,a«CMDR 






ISSUE SET SOFTWARE REQUEST COMMAND 


BIT 


«14000.MSTAT1 






LOOK FOR CHAIN ABORT OR NAC 


BEQ 


141 






UAIT FOR NAC TO SET 


BIT 


«eop.a#STATi 






;DID UE GET AN EOP? 


BEQ 


12* 








MOV 


<H)MA4.EMA0R 


: !\\ 






MOV 


4N0SIG.ESA0R 


Si 

::// 


ERROR 214. 


ERR0R*214 






BIT 


#TC.a#STATl 


sUAS TRANSFER SUCCESSFUL? 


6NE 


13* 








MOV 


*DMA3.EMADR 


;!\\ 






MOV 


«NOSIG.ESADR 


>> 


ERROR 215. 



13*: 



RTS 



ERR0R*215 
PC 



CHAIN FILE FOR SHARED MEMORY TRANSFERS 



25*: 


.UORD 


<CARA ! CARB ! COP ! MODE ! CHAD> 


26*: 


.WORD 


0 i SOURCE SEGMENT 


27*: 


.WORD 


0 ! SOURCE OFFSET 


28*: 


.UORD 


0 } DESTINATION SEGMENT 


29*: 


.UORD 


0 i DESTINATION OFFSET 


24*: 


.UORD 


0 J OP COUNT 




.UORD 


< HM > , < TRUU ! BUSHOG ! lEOP > 
<K2MEM>.25* 




.UORD 



SHMXIT: CLR 
6IC 
SIC 
CLR 



S«MMR0 

«eiT02,a*K2CSRJ 
#176000, QBLOAO 
QBL0AD«4 



OFF MMU 

DISABLE SHARED MEMORY 
CLEAR EXTENDED ADDRESf, 



BITS 



;*TEST 15.2 TEST QHITS 
T15.2:: 

THAT DMA STATE MACHINE TERM THAT HANDLES QHITS IS OK 



QHIT: 



1*: 



;TEST 

BIS «eiT02,a«K2CSRJ 

MOV *76543,TSTL0C 

CLR 9«CM0R 

MOV #135.a«MMR 

CLR 3«CHA2H 

MOV *aiE2.a#CMDR 

MOV #10*.aK:HA2L 

MOV #10.a#TPR05 

JSR PC.ARBDIS 

MOV #SCCCH2.a#CMDR 

BIT *14000.a*STAT2 



ENABLE SHARED MEMORY 
INIT TSTLOC UITH KNOUN DATA 
CLEAR DTC 

LOAD DTC MASTER MODE REG 
CHAIN SEG/TAG FIELD 
DISABLE INTERRUPTS FROM DTC 
CHAIN OFFSET 

TELL ARBITER TO BANG ON SHARED MEMORY 



! ISSUE START CHAIN COftlAND 



KXJll CA FUNCTIONAL TEST 
T15.2 TEST QHITS 
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:SAVE VECTOR 
:SAVE VECTOR 



5009 


035346 


001774 








BEQ 


1$ 


5010 


035350 


013746 


000120 






MOV 


3*120. -(SP) 


5011 


035354 


013746 


000130 






MOV 


3*130. (SP) 


5012 


035360 


013746 


000132 






MOV 


3*132. -CSP) 


5013 


035364 


012737 


035450 


000120 




MOV 


*6$. 3*120 


5014 


035372 


012737 


035442 


000130 




MOV 


*7$. 9*130 


5015 


035400 


012737 


000340 


000132 




MOV 


*PR7. 3*132 


5016 


035406 


012702 


177530 






MOV 


*K2CSRD.R2 


5017 


035412 


042712 


010000 






BIC 


*eiT12.(R2) 


5018 


035416 


012737 


000110 


177532 




MOV 


*110,3*K2QIR 


5019 


035424 


032712 


040000 




14$: 


BIT 


#BIT14.(R2) 


5020 


035430 


001775 








BEQ 


14$ 


5021 


035432 


052712 


030110 






BIS 


*30110.(R2) 


5022 
















5023 


035436 


000234 








SPL 


4 


5024 


035440 


000001 








UAIT 


(SP)*.(SP)* 


5025 


035442 


022626 






7$: 


CMP 


5026 


035444 


000234 








SPL 


4 


5027 


035446 


000001 








UAIT 


CSP)*.(SP)* 


5028 


035450 


022626 






6$: 


CMP 


5029 


035452 


012637 


000132 






MOV 


CSP)*. 3*132 


5030 


035456 


012637 


000130 






MOV 


CSP)*. 3*130 


5031 


035462 


012637 


000120 






MOV 


CSP)*. 9*120 


5032 


035466 


032737 


000002 


174454 




BIT 


*£0P.3*STAT2 


5033 


035474 


001407 








BEQ 


2$ 


5034 


035476 


012737 


020513 


044746 




MOV 


*0MA4,EMADR 




035504 


012737 


045206 


044752 




MOV 


*N0SIG,ESADR 




035512 


104216 








ERROR «216 


5035 


035514 


032737 


000001 


174454 


2$: 


BIT 


#TC.a*STAT2 


5036 


035522 


001007 








BIC 


3$ 


5037 


035524 


012737 


020451 


044746 




MOV 


»MA3.EMADR 




035532 


012737 


045206 


044752 




MOV 


«N0SIG.ESADR 




035540 


104217 








ERR0R*217 


5038 


035542 


000410 






3»: 


BR 


15$ 


5039 
















5040 


035544 


001602 






10$: 


<CARA!CARB!COP!MOOE> 


5041 


035546 


000020 


001412 






<K2MEM!H0LD>, TSTLOC 
<K2MEM!400!UP>. 0 


5042 


035552 


000400 


000000 






5043 


035556 


001000 








1000 




5044 


035560 


000030 


000140 






<SURQ!HM>.<TRUU!INTLV 


5045 


035564 








15$: 






5046 













LOAD TRAP HANDLER 



DON'T ALLOW BUS INTERRUPTS 

TELL ARBITER TO STOP ACCESSING SHARED MEMORY 

DID THE QIR GET WRITTEN? 

ENABLE Q BUS INTERRUPT. lACK INTERRUPT. TPR 
..ACCESS FROM Q BUS Af© TPR04 INTERRUPT 
LOWER PRIORITY LEVEL 

FIX STACK INTERRUPT VIA 130 

UAIT FOR INTERRUPT CAUSED BY ARBITER WRITING 

TPR04 TO TELL K2 THAT IT'S STOPPED WRITING MEM. 

RESTORE THE VECTORS 



;DID EOP OCCUR? 

W 

>> ERROR 216. 
// 

;DID WE GET TC? 

!\\ 

s » ERROR 217. NO TCiEOP 
;// 





035564 








5047 


035564 








5048 


035564 


052737 


000004 


177540 


5049 


035572 


012737 


017600 


172352 


5050 


035600 


052737 


000001 


177572 


5051 


035606 


012700 


120000 




5052 


035612 


012702 


120000 




5053 










5054 


035616 


012701 


010000 




5055 


035622 


007322 






5056 


035624 


062700 


000002 




5057 


035630 


077104 






5058 


035632 


012702 


120000 





;*TEST 15.3 
T15 3- • 

sTEST THE SHARED MEMORY USING THE LOCK INSTRUCTIONS 



SHLOCK: 



his #6IT02.9«K2CSRJ 

MOV *17600.9«<IPAR5 

BIS *1.8«MMR0 

MOV *120000.RO 

MOV *120000,R2 



ENABLE SHARED MEMORY 
POINT TO SHARED MEMORY 
TURN ON MMU 



;INIT 4KU BLOCK OF SHARED MEMORY WITH PATTERN 120000 TO 137776 



1$: 



MOV 
.WORD 
ADO 
SOB 
MOV 



*4096..R1 
7322 
*2.R0 
Rl.l$ 

*120000,R2 



***TEST URTLCK INSTRUCTION 
LOOP CONTROL 



MIO 
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5059 
5060 
5061 
5062 
5063 



5064 
5065 
5066 
5067 
5066 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5066 



5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 



035636 
035642 
035646 
035650 
035652 
035660 
035666 
035670 
035672 
035676 

035700 
035704 



035710 
035712 
035714 
035720 
035724 
035730 
035732 
035734 
035740 
035744 
035750 
035756 
035764 
035766 
035770 
035774 
035776 
035776 



035776 
05600? 
0S600/' 
036010 
036014 
036022 
036026 



012700 
012701 
020220 
001410 
012737 
012737 
104220 
000442 
062702 
077115 

012701 
012702 



007222 
077102 
012702 
012701 
012703 
020321 
001416 
010337 
014137 
010137 
012737 
012737 
104221 
000403 
062703 
077223 



005737 
001002 
000137 
013746 
012737 
012701 
012700 



120000 
010000 



036571 
045206 



000002 



010000 
120000 



010000 
120000 
120001 



001124 
001126 
001120 
036631 
045244 



000002 



050762 

037160 
000120 
017600 
010000 
120000 



044746 
044752 



044746 
044752 



nov n20ooo.RO 

flOV *4096, ,R1 
21: CMP R2.(R0)* 
BEQ 

MOV SLMGH4.EMADR ;:\\ 
MOV «NQSIG.ESADR >> 
ERROR +220 .•;// 
7* 

*2.R2 
Rl,2* 

TSTSET LOCK INSTRUCTION 
«4096..R1 
#120000. R2 



BR 

31: ADO 
SOB 

;N0U TEST THE 
MOV 
MOV 



IS PATTERN THERE? 



ERROR 220, PATTERN NOT CORRECT 



WRITE AN INCRErCNTING PATTERN TO SHARED MEMORY STARTING 
AT VIRTUAL LOACTION 120000 WHICH IS INITIALIZED WITH THE 
VALUE 120000. THE TSTSET INSTRUCTION WILL READ Th€ VALUE 
120000 FROM VA 120000. IT WILL THEN OR THE LSB =1 AND 
WRITE IT BACK OUT. IHE RESULT WILL BE THAT THE DATA IN 
EACH VIRTUAL ADDRESS = ITSELF ♦! 



4$: 



5*: 



6«; 



.WORD 


7222 


SOB 


R1.4* 


MOV 


44096.. R2 


MOV 


*120000.R1 


MOV 


#120001. R3 


CMP 


R3,(R1)* 


BEQ 


6$ 


MOV 


R3,*G0DAT 


MOV 


-(R1).*B0DAT 


fWV 


RI.IGDAOR 


MOV 


#LMGH5.EMADR 


MOV 


#eF3.ESA0R 


ERROR+221 


BR 


7$ 


ADO 


#2.R3 


SOB 


R2.5* 



.****TEST TSTSET INSTRUCTION 
;LOOP CONTROL 



; CHECK RESULTS 

sGET EXPECTED DATA 
;..AND ACTUAL DATA 
:...AND FAILING ADDRESS 

:\\ 

; >> ERROR 221. TSTSET INSTRUCTION FAILED 

iBAIL OUT ON ERROR 
! UPDATE DATA 



7*: 
ARBLMGH: 

CONDUCT SOME TESTS OF LM6H FROM THE ARBITER SIDE. 
THE TESTS ARE INITIATED BY CAUSING AN INTERRUPT TO THE ARBITER CPU 
VIA THE QIR. TPR05 OF THE INTERRUPTING lOP WILL CONTAIN A VALUE THAT 
WILL BE USED BY THE INTERRUPT ROUTINE EXECUTED BY THE ARBITER TO INDEX 
TO A TEST SUB -ROUTINE. TEST COMPLETION OR ERRORS ARE REPORTED VIA TPR04 
OF THE lOP UNDER TEST. 

NOW LET'S GET DOWN TO THE BUSINESS OF TESTING 

CAUSE ARBITER TO WRITE THE SHARED MEMORY USING THE BUS LOCK INSTRUCTIONS 



172352 



TST KDJ» 

6NE 1« 

JMP ENDLMG 

1*: MOV 8#120.-(SP) 

MOV M7600.KIPAR5 

MOV *40%..R1 

MOV »120000.R0 



IS THE ARBITER A KDJll 
SKIP THIS TEST IF IT IS NOT. 

SAVE VECTOR 

MAP KIPAR5 TO TOP OF PHYSICAL MEMORY 
SET UP FOR LOOP 
INIT RO AS A POINTER 



MO 
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5112 036032 


052737 


AAAi\A4 

OOOOOl 


177572 


5113 036040 


005020 






5114 036042 


ATT 4 

077102 






5115 036044 
L.^6 036052 


012737 


036074 


000120 


005037 


4 TCA4 A 

175010 




5*17 036056 


A4 O'TT^ 

012737 


AAAAAO 

000002 


4 7CA4 O 

173012 


5118 








5119 036064 


004737 


036330 




5120 








5121 0360'0 


AAA^Til 

000234 






5122 036072 


AAAAA4 






C4 

51c3 








512*» 036074 


042*3/ 


AAAA4 A 
000010 


1 77CTA 

1 1 r 330 


C 4 AT£ 4 AO 

!>125 036102 


A4 07A4 

012 rOl 


A4 AAAA 
010000 




C 4 AT^ 4 AX. 

5126 036106 


A 4 07AA 
012700 


4 OAAAA 
120000 




5127 036112 


AACAAO 

003002 






5120 036114 


A0A0 4 A 

020210 






Ji27 U30ilO 


AA1 A1 C 

001413 






CI TA ATil4 0A 

DloO 036120 


A4 AOT7 
01023 1 


AA1 1 OA 

001124 




CI T 1 ATX 4 Oil 

3131 036124 


All rtT7 


AA1 1 OX 

001120 




3132 U3013U 


A1 AAT7 


AA4 4 Ort 




CUT /^TXITA 
3133 U30134 


A1 07T7 
012 r 3 1 




AAA7AA 
044 1 40 


ATX1 AO 


rtl 07T7 
012 r 3 1 


rtACOl A 
043210 


AAA7^0 
04»» (OC 


AT<11 CA 


1 AAOOO 
104222 






C1TA rtTAI CO 
3134 UOOljc 


At07rt0 
\JOC 1 \IC. 


OOOvve 




C1TC <%T<L1C& 
3133 U3013D 


0O2 lOO 






C1TX DTI^IXO 
3130 l'3D102 


A771 OA 

0 1 tic'* 






C1T7 nxc^t^A 
313 r U30104 


AA07T7 
042 I 3 ' 


UWUUl 


1 r i3'2 


3130 U301rc 


hOOAOA 






CI TO 

3137 








^lAft nTA17A 
314U UOOl (4 


ftl 07T7 


UOOclO 


AAA1 3A 


C1A1 ATXOrtO 
3141 U30cUe 


012 ' 3 ' 


AAAAAA 
<JUvUU4 


1 7CA1 O 
1 '3012 


3142 V3021U 


rtAA7T7 
004 f 3 f 


ATATTA 
030330 




CI AT OTiLOIA 
3143 U30214 


OOOOOl 






CI AA 
3144 








CI AC nT&01& 
3143 U3021(> 


rtA07T7 
042 (3 I 


AAAA1 A 


1 1 r330 


^1A& nT&OOA 
314D U30224 


A4 07A1 
012 lOl 


A1 AAAA 
OlOOOO 




C1A7 t^TXOTA 
314 1 U3023U 


A1 07AA 
012 f OO 


1 OAAAA 
120000 




<\1Afl t^T&OTA 
3140 U30234 


A4 07A0 
012 rOc 


AAAAA1 
OOOOOl 




^lAQ t^T^OAA 
314^* U3024U 


ft';07T7 
03c f 3 ' 


AAAAA1 
OOOOOl 


1 77'?70 
1 1 r3 rc 


CI <\n nT&OAA 
313U U30c40 


A0A01 A 

0c0210 






CI CI nTi^OCA 
3131 U30c3U 


AA1 A1 C 
001413 






CI CO OTAOCO 
313c U30232 


A1 AOT7 
01023 1 


AA1 1 OA 
001124 




C1CT fiXCVit. 
3133 U30c3e 


01103 r 


AA1 1 on 

001126 




3134 036262 


A4 AAT7 

01003 r 


AA4 4 OA 

001120 




3133 U3020O 


rtl 07T7 

012 r3f 


03O ICO 


AAA7AA 
044 /40 


nTX07A 
U3o2 (4 


A1 07T7 
012r3/ 


AAC01 A 
043210 


AAA7CO 
044/32 


036302 


4 AAOOT 

104223 






C4C£. AT£TAil 

3136 036304 


AX.07A0 

062 '02 


AAAA A 
000002 




C4C7 ATXT4A 

313 r 036310 


AX.07AA 

062 fOO 


AAAAAO 
000002 




cica ATATIA 
31 30 U00014 


ft77 1 OA 
\J 1 1 lc4 






5159 036316 


022626 






5160 036320 


012637 


000120 




5161 036324 


000137 


037160 




5162 








5163 036330 








5164 









10*: 



BIS 

aR 

SOB 
NOV 
CLR 
NOV 

JSR 

SPL 
WAIT 



«i.a«rtfi0 

(RO)* 

Rl.lO* 

#15$.3«120 

9«TPR04 

^2.a#TPR05 

PL ARBDIS 
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TURN ON MMU 

CLEAR OUT TOP OF MEMORY 
LOOP CONTROL 
SET UP INTERRUPT HANDLER 
CLEAR TPR4 

INDEX VALUE THAT DISPATCHES ARBITER TO TEST.. 
.. TPR READ ACCESSES FROM ARBITER SIDE. 
ROUTINE TO GENERATE AN INTERRUPT TO THE 
...ARBITER. 
LOWER PRIORITY LEVEL 



{COMES HERE ON INTERRUPT FROM ARBITER WRITING TPR04 AFTER DOING WRTLCK TEST 



15*: 



20$: 



BIC «BIT03.a«K2CSRD 

MOV M096..R1 

MOV «120000,R0 

CLR R2 

CMP R2.(R0) 

BEQ 25$ 

MOV R2,$GDDAT 

MOV CRO.JBDDAT 

MOV RO.tGOADR 

my *WTLK,EMADR 

MOV #EF2.ESADR 



25$: 



ADD 
ADD 
SOB 
BIC 
CMP 



ERROR ^222 



*2.R2 
#2,R0 
R1.20$ 
«l.a#MMRO 

CSP)*.CSP)^ 



sNOW SET UP TO CHECK TSTSET INSTRUCTION FROM ARBITER SIDE 



MOV 
MOV 
JSR 
WAIT 



«30$,S«120 
*4.a#TPR05 
PC. ARBDIS 



301; 



35$: 



BIC «6IT03.S«K2CSRD 

MOV «4096..R1 

MOV «120000.R0 

MOV *1.R2 

BIS «1,9«MMR0 

CMP R2.CR0) 

BEQ 401 

MOV R2.IG0DAT 

MOV (R0).*B00AT 

MOV RO.IGDADR 

MOV #TSET.EMADR 

MOV «EF2.ESA')R 



STOP INTERRUPTS FROM WRITES TO TPR04 
SET UP FOR LOOP 
INIT RO AS A POINTER 

IS DATA CORRECT 

GET EXPECTED DATA 
GET ACTUAL DATA 
GET FAILING ADDRESS 
;\\ 

; >> ERROR 222. ERROR WITH WRITE LOCK FROM ARB SIDE 

:// 

ADD TWO TO DATA 
...AND TO ADDRESS 
LOOP CONTROL 

FAKE THE RTI 



NEW INTERRUPT HANDLER 
POINTER TO TSTSET TEST ON ARBITER SIDE 
WRITE VECTOR TO ARBITER 



! COMES HERE ON INTERRUPT FROM ARBITER WRITING TPR04 AFTER DOING TSTSET TEST 



401: 



ADD 
ADD 
SOB 
CMP 
MOV 
JMP 



ERROR ^223 



«2.R2 
«2.R0 
R1.35* 
(SP)*.CSP)» 

(SP)-,an20 

ENDLMG 



STOP INTERRUPTS FROM WRITES TO TPR04 
SET UP FOR LOOP 
INIT RO AS A POINTER 

TURN ON MMU 

IS DATA CORRECT 

GET EXPECTED DATA 

GET ACTUAL DATA 

jGET FAILING ADDRESS 
. . \\ 

i » ERROR 223. ERROR WITH TEST SET FROM ARB SIDE 
;// 

ADO TWO TO DATA 
...AND TO ADDRESS 
LOOP CONTROL 
FAKE THE RTI 
RESTORE VECTOR 



ARBDIS • 

; SUB-ROUTINE TO CAUSE AN INTERRUPT TO THE ARBITER BY WRITING THE QIR OF 



KX^ll CA FUNCTIONAL 
T15.3 



TEST 



MACRO Y05.02 



5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 
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lOP UITH THE APPROPRIATE VECTOR 



036330 
036336 
036344 

036352 
036360 
036362 
036366 
036374 

036402 
036404 
036406 
036410 
036414 

036422 
036430 
036432 



052737 
042737 
013737 
032737 
001774 
013746 
012737 
052737 

000234 
000001 
022626 
012637 
042737 

052737 
000234 
000207 



036434 000000 



036436 
036503 
036544 
036571 
036631 
036667 
036726 



ON ENTRY: 



000100 
010000 
036434 
040000 

000130 
036406 
030000 



000130 
030000 

000010 



177530 
177530 
177532 
177530 



000130 
177530 



177530 
177530 



1^ 



BIS 
BIC 
HOV 
BIT 
BEQ 
MOV 
MOV 
BIS 

SPL 

UAIT 

CMP 

MOV 

BIC 

BIS 
SPL 
RTS 



INTVEC: .UORD 



2«: 



200 


124 


122 


LMGHl: 


.ASCIZ 


200 


124 


122 


LMGH2: 


.ASCIZ 


200 


102 


101 


LMGH3: 


.ASCIZ 


200 


127 


122 


LMGH4: 


.ASCIZ 


200 


124 


105 


LMGH5: 


.ASCIZ 


200 


101 


122 


UTLK: 


.ASCIZ 


200 


101 


122 


TSET: 


.ASCIZ 








.EVEN 





TPR05 CONTAINS A VALUE THAT THE ARBITER WILL USE TO 
INDEX TO THE DESIRED TEST. 



«6IT06.a«K2CSRD 
«6IT12.a«K2CSRD 
INTVEC. aMC2QIR 
«6IT14.a«K2CSRD 
U 

3*130. -(SP) 
»2$.3«130 



sENABLE TPRS 

: DON'T ALLOU QBUS INTERRUPT 
iURITE THE QIR 
sDID IT GET WRITTEN? 
; BRANCH 'TIL IT DOES 
:SAVE VECTOR 
■ TRAP HM40LER 

#<BIT12!BIT13>.a«<2CSRD ;THEN ENABLE Q BUS INTERRUPT AND 

;IACK INTERRUPTS 

4 



(SP)»,(SP)» {FIX STACK 
CSP)* 9*130 'RESTORE VICTOR 

#<BITi3!BIT12>.a«K2CSR0 j DISALLOW QBUS INTERRUPTS AND 

sIACK INTERRUPTS 
#6IT03.a«<2CSR0 ; ENABLE INTERRUPTS FROM TPR04 
4 ; ALLOU INTERRUPT 

PC 

0 {HOLDS VECTOR TO BE WRITTEN TO QIR 

<CRLF>/TRANSFER TO SHARED MEMORY TIMED-OUT/ 
<CRLF>\TRANSFER TO Q-BUS I/O TIMED-0UT\ 
<CRLF>/BA0 DATA TRANSFERED/ 
<CRLF> /WRITE LOCK TO SHARED MEM ERROR/ 
<CRLF>/TEST SET TO SHARED MEM ERROR/ 
<CRLF> /ARBITER SIDE WRITE LOCK ERROR/ 
<CRLF>/AR6ITER SIDE TEST SET ERROR/ 



Cil 
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Poge 131 



5200 036764 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 036764 

5212 036766 

5213 036770 

5214 036772 
5215 

5216 036776 

5217 037000 

5218 037004 

5219 037006 

5220 037012 

5221 037014 

5222 037016 

5223 037020 

5224 037022 

5225 037026 

5226 037032 

5227 037034 

5228 037C36 

5229 037040 
5230 

5231 037042 

5232 037044 

5233 037046 

5234 037050 



010146 
010246 
010346 

072027 177776 
010001 

042701 140377 
005003 

012702 000010 

000241 

006200 

006003 

077203 

010137 037042 

010337 037044 

012603 

012602 

012601 

000207 

000000 
000000 
177600 
000000 



PDPOTC: 



ROUTINE TO FORMAT A PDP/LSIll PHYSICAL ADDRESS FOR OTC USE. 
TAKE THE STARTING ADDRESS (GLOBAL) OF THE FIRST 8KB BLXK OF SHARED MEMORY. 
SHIFT n TUICE TO THE RIGHT TO LINE IT UP UITH THE OTC FORMAT AND MASK OFF 
THE BITS WHICH I^PRESENT ADDRESS BITS <15:13>. THE REMAINING BITS UILL BE 
SET IN THE UPPER CURRENT ADW«SS REGISTER. THEN SHIFT RO. UITH ALL UPPER 
ADDRESS BITS STILL SET, UNTIL THE SIGNIFICANT ADDRESS BITS HAVE BEEN SHIFTED 
INTO R3. THEN R3 IS THE OFFSET ADDRESS OF THE Q BUS (GLOBAL) SHARED MEMORY. 



BUMP IT RIGHT A COUPLE FOR OTC 
ALIGNMENT 
SAVE IT IN Rl 

MASK OUT THE NON SEGMENT BITS 
INIT R3 





MOV 


Rl.-(SP) 




MOV 


R2.-(SP) 










ASH 


#-2.R0 




MOV 


RO.Rl 




8IC 


*tC37400.Rl 




CLR 


R3 




MOV 


«10.R2 




CLC 


40»: 


ASR 


RO 




ROR 


R3 




SOB 


R2.40» 




MOV 


Rl, CARAHI 




MOV 


R3, CARALO 




MOV 


(SP)*,R3 




MOV 


(SP)*.R2 




MOV 


(SP)*.R1 




RTS 


PC 


CARAHI : 


.UORO 


0 


CARALO: 


.UORO 


0 


STQBIO: 


.UORO 


177600 


LCLMEM: 


.UORO 


0 



CLEAR THE C BIT 
SHIFT 8 TIMES 



.•LOAD CURRENT AOOR REG A HIGH UORO 
sLOAD CURRENT AODR REG A LOU UORO 



; START OF QBUS 10 
{LOCAL MEMORY 



Dll 
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T15.3 ACCESS SHARED MEMORi' WITH LOCKED INSTRUCTIONS 



























'i?40 037054 


010346 






013702 


050752 


5242 






5243 






5244 037062 


010203 




5245 037064 


042702 


171777 


5246 037070 


072227 


000004 


5247 037074 


000407 




5248 






5249 037076 






5250 






5251 






5252 037076 


010246 




5253 037100 


010346 




5254 037102 


013702 


050752 


5255 






5256 






5257 037106 


010203 




5258 037110 


042702 


001777 


5259 037114 


042703 


176177 


5260 037120 


072327 


000006 


5261 






5262 






5263 






5264 037124 


050337 


037146 


5265 037130 


050237 


037142 


5266 






5267 037134 


012603 




5268 037136 


012602 




5269 037140 


000207 




5270 






5271 037142 


000641 




5272 037144 


000000 




5273 037146 


000000 




5274 037150 


170000 




5275 037152 


063636 




5276 037154 


000000 




5277 037156 


000000 




5278 






5279 037160 


042737 


010010 


5280 






5281 037166 


042737 


000004 


5282 037174 


000400 





QIBAIW: 



Q22A0R: 



QADR: 



QBLOAD: 



; SUBROUTINE TO CONVERT AN ADDRESS TO A FORMAT USA8LE BY THE QBUS 
; EXERCISER 



MOV 
MOV 
MOV 



MOV 
BIC 
ASH 



R2.-(SP) 
R3. (SP) 
L0ULIM.R2 



R2.R3 
«tC6000,R2 
«4.R2 
QADR 



SAVE THE REGISTERS THAT ARE... 

GOING TO BE USED BY THIS ROUTINE. 
PUT THE FIRST NON-EXISTANT MEMORY ADDRESS IN R2 
.. UHICH BY THE WAY. IS ALSO THE FIRST SHARED 
... MEMORY ADDRESS. 

R2 AS UELL 
EXTRACT UHAT UILL BE ADDRESS BITS 17.16 
ALIGN THEM 



{SUBROUTINE TO CON\€RT THE FIRST SHARED MEMORY ADDRESS TO A FORMAT 
: USABLE BY THE 22 BIT QBUS EXERCISER 



MOV 
TOV 
MOV 



MOV 
BIC 
BIC 
ASH 



BIS 
BIS 

MOV 
MOV 
RTS 

.UORO 
.UORD 
.UORO 
.UORD 
.UORO 
.UORD 
.UORD 



R2,-(SP) 
R3.-(SP) 
L0ULIM.R2 



R2.R3 

«tC176000.R2 

«tC1600.R3 

«6.R3 



R3,Q6L0AD«4 
R2. QBLOAD 

(SP)*.R3 
(SP)*.R2 
PC 

641 

0 
0 

-40%. 
63636 
0 
0 



SAVE THE REGISTERS THAT ARE... 

GOING TO BE USED BY THIS ROUTINE. 
PUT THE FIRST NON-EXISTANT MEMORY AOcRESS IN R2 

UHICH. BY THE UAY. IS ALSO THE FIRST SHARED 
... MEMORY ADDRESS. 
AND R3 

EXTRACT BITS 21-16 OF ADDRESS 
EXTRACT BITS 15-13 OF ADDRESS 
ALLIGN BITS 

UHEN THE ABOVE HAS COMPLETED R3 UILL CONTAIN 
.ADDRESS BITS 15-13 OF THE QBE22 DESTINATION 
..ADDRESS. R2 UILL CONTAIN ADDRESS BITS 21-16. 
STUFF BITS 15-12 INTO QBE 22 UORD 
STUFF BITS 21-16 INTO QBE 22 UORD 

OR BITS 17 16 INTO QBE 18 UORD 
RESTORE REGISTERS 



DATA OUT/ ONE XFER PER DMG/ UORD 
CSR2 

ADDRESS BITS 15-0 
UORD COUNT 
DMA DATA 



ENDLMG: BIC 

BIC 
BR 



«<BIT12!6IT03>.9«K2CSRD 

«BIT02.9«K2CSRJ 
TST16 : ; 



DISALLOU INTERRUPTS TO QBUS AND 

. . . FROM TPR04 

TURN OFF SHARED MEMORY 



til 



KXJll CA FUNCTIONAL TEST 
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5284 



037176 
037200 
037204 
037212 
037216 
037220 
03/224 
037230 
037232 

037256 

5265 
5286 
5287 
5268 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 

5301 037256 

5302 037262 
5303 

5304 037270 

5305 

5306 

5307 

5306 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 037274 

5317 037276 

5318 037302 
5319 

5320 037304 
5321 

5322 037306 

5323 037310 

5324 037314 
5325 

5326 037316 

5327 037322 



000004 
012706 
012737 
005037 
000402 
000137 
1044x5 
000412 
040 



001100 

177777 002426 
044742 
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;*TEST 16 FIRMUARE CHECKSUM 

TST16: SCOPE 



037632 
037232 

040 



106 



013746 
012737 



172354 

021400 172354 



012702 017777 



005004 

032702 
001002 

010201 

000402 
012701 
160102 

012703 
062304 



170000 

010000 
140000 



MOV 
MOV 

aR 

BR 

300651: JMP 



•STACK, SP 
#-l.TRAP4X 
EMPRE 
300661 
lEOP 



300661: TINAME, .*4 

BR 300671 



SET A CLEAN STACK. 
DISMISS BUS-ERRORS. 
CLEAR ERROR PREFIX. 
SKIP NEXT. 
BYPASS. 

PRINT TEST NUreER AND NAME. 
.AND SKIP OVER THE ASCII. 



.ASCIZ \ FIRMUARE CHECKSUM\ 
• EVEN 

30067$: 

CHECK OUT THE NATIVE FIRMUARE 
Module ROMTST 

Description: This module calculates the checksum of the native firmware 
in PROM. It then compares the calculated checksum with the 
checksum blasted into the the last location in the native 
firmware PROM section. If they are equal the PROM is good. 

The following algorithm is used to calculate the checksum: 

CHECKSUM - 0 

FOR I = number of PROM addresses to be check sumed DO 
CHECKSUM * CHECKSUM * contents of address 
CHECKSUM = ROTATE_LEFT_ONE_BIT 

NEXT I 

NATIVE: MOV a»KIPAR6, -(SP3 :Save contents of KIPAR6 

MOV #21400, aOKIPAR6 : Point KIPAR6 to physical addresses starting 

:.. at 2140000. 
MOV #17777, R2 s Check 8K words of PROM - 1 

Routine to calculate native firmware checksum and compare it with the 
checksum value located in the last native firmware PRDM word location. 

Inputs: R2 " Number of words of PROM to be checksumed minus 1 for the 
word which contains the PROM checksum value. 
To checksum 16kB of native firmware PROM, R2 " 17777 

KIPAR6 - 21400. Points to begining of PROM address space. 



SUMCHK: CLR 
10*: BIT 
6NE 



ir 

2$; 



3$: 



MOV 

BR 

MOV 
SUB 

MOV 
ADD 



R4 

#170000, R2 
II 

R2.R1 
2i 

#10000, R J. 
R1,R2 

#140000, R3 
(R3)».R4 



:In!t checksum location. 
Are any of the bits 15 thru 12 > 1? 
Branch if any are set 
Otherwise 

Load loop control with remaining value in R2 
which will be less than 10000 

Check 4K words of PROM 

Subtract the number words of PROM being tested 
. . . from R2 
Point to KIPAR6 

Add contents of address to checksum 



KXJll-CA FIJNCTIONAL TEST 
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5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 



5342 
5343 
5344 
5345 
5346 



037324 
037326 
037330 
037332 
037334 
037336 
037540 
037342 
037350 
037352 

037354 
037356 
037362 
037370 
037376 
037400 
037402 
037406 
037412 



000241 








CLC 




100001 








BPL 


11$ 


000261 








SEC 




006104 






11*- 


ROL 


R4 


077106 








SOB 


R1.3* 


005702 








TST 


R2 


001404 








BEQ 


4* 


062737 


000200 


172354 




ADD 


*200.aflKIPAR6 


000752 








BR 


10$ 


021304 






4$: 


CMP 


CR3).R4 


001412 








BEQ 


5$ 


012637 


172354 






MOV 


(SP)*.a«KIPAR6 


012737 


037412 


044746 




WV 


OPRWICK.EMADR 


012737 


045206 


044752 




MOV 


*NOSIG.ESAOR 


104224 








ERR0R«224 


000402 








BR 


61 


012637 


172354 




5*: 


MOV 


(SP)*,a«<IPAR6 


000137 


037632 




6$: 


JMP 


$EOP 


120 


122 


117 


PROMCK: 


.ASCIZ 


/PROM CHECKSUM 








.EVEN 







Clear the carry bit in psw 
Branch if plus 
..else set carry bit 
. .end around carry 
Loop control 

If R2 * zero all locations have been checked. 
Go see if checksum is good. 
Otherwise prepare to check l 
. . . section of PROM. 

R3 now points to last user PROM address. 
Are checksums equal? 



the next 4k word 



Restore KIPAR2 
\\ 

>> ERROR 224, PROM CHECKSUM ERROR 
// 

Return from error 
Restore KIPAR6 



ERROR/ 



Gl 



1 
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T16 FIRMWWE CHECKSUM 



534« 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5364 
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5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 



037436 
037440 
037442 
037444 
037450 

037452 
037454 
037456 
037460 
037462 
037464 
037472 
037476 
037502 
037!;f*, 
037512 
037514 
037520 
037524 
037530 
037532 
037534 

037536 
037540 



037542 
037546 
037552 
037556 
037560 



037562 
037564 
037566 
037572 
037574 



010046 
010146 
010100 
042700 
000241 
000005 
006100 
006100 
006100 
006100 
006100 
016037 
005037 
012700 
006337 
006137 
077005 
042701 
060137 
005537 
012601 
012600 
000207 

000000 
000000 



113700 
042700 
110077 
000240 
000207 



004717 
004717 
012700 
077001 
000207 



KXJBUT.MAC 



16-JAN-86 



SUBROUTIfC TO CONVERT 16 BIT (PAR FORMAT) VIRTUAL 
ADDRESS TO A 22 BIT GLOBAL (PHYSICAL) ADDRESS. 

ON ENTRY. Rl » PAR FORMAT VIRTUAL ADDRESS. 

ON EXIT. GAHI<5:0> AND GALO<15:0> = GLOBAL A00RESS<21:0>. 



017777 



COPY VA. 

STRIP PAR NUMBER... 
...ROTATE IT AROUND 



172340 
037536 
000006 
037540 
037536 

160000 
037540 
037536 



GET PAR 
ZERO => 



VA26A: MOV RO.-(SP) 

MOV Rl.-(SP) 

MOV Rl.RO 

BIC *17777,R0 
CLC 

.REPT 5 

ROL RO 

ROL RO 

ROL RO 

ROL RO 

ROL RO 

037540 MOV KIPARO(RO).GALO 

CLR GAHI 

MOV «6,R0 

1$: ASL 6AL0 

ROL GAHI 

SOB RO.lt 

BIC #tC17777,Rl 

ADO Rl.GALO 

ADC GAHI 

MOV (SP)».R1 

MOV (SP)*.RO 
RETURN 



GAHI: 0 ; GA<21:16> 

GALO: 0 ; 6A<15:00> 

! SUBROUTINE TO PUT TEST NUMBER IN THE LEDS. 



TO AN INDEX. 



VALUE 
GAHI. 



=> GALO. 



ROTATE PAGE TO BIT<21>... 

...STRIP VA<12:00>... 
...AND COMBINE THE PIECES. 



001102 
177760 
141562 



tNLEDS: M0V8 
BIC 
MOVB 
NOP 

RETURN 



nSTNM.RO 

*tC17.R0 

RO.SILEOS 



TEST NUMBER. 
STRIP THE NUMBER. . . 
...AND LITE THE LITES. 



SUBROUTINE(S) TO DELAY IN SOUS INCREMENTS. 



000024 



6200 : CALL aPC 

DlOO: CALL SRC 

D50: MOV »20..R0 

SOB RO. . 

RETURN 



200 USEC. 
100 USEC. 

50 USEC. 

" 2.6US/C0UNT. 



Hll 
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5398 
5399 
5400 
5401 

5402 037576 

5403 037600 

5404 037602 

5405 037612 

5406 037622 
5407 

5408 
5450 



000000 
015 
001 
376 
040 

037625 



012 
002 
375 
055 



004 
373 
055 



t FLOATING 1 AND 0 DATA TABLE. 

; USED IN SERIAL LINE CDC319 AND NEC7201) AND PIG TESTS. 

' ; BYTE COUNTS ~ LOB XMTR. HIB RCVR. 

<CR><LF> ; SYNC PAIR, 

001, 002. 004, 010. 020, 040, 100, 200 ; FLOATING 1. 
376. 375. 373. 367. 357, 337, 277, 177 j FLOATING 0. 
/ -»a.-/<7> . AND END UITH " — X"<DING>*. 

s POINTS TO THE VARIABLE CS). 



BYTES: 
FLTIO: 
FLTl: 
FLTO: 



VARC- 
.SBTTL 



0 

.ASCII 
.BYTE 
.BYTE 
.ASCIZ 
.-5 
.EVEN 
END OF PASS ROUTINE 



i*INCREHENT THE PASS NUMBER C»PASS) 
:*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO AGAIN 



037632 

037632 

037634 

037640 

037644 

037652 

037654 

037656 

037660 

037662 

037664 

037666 

037672 

037676 

037702 ' 

037706 

037712 

037720 

037726 

037734 

037740 

037744 

037746 

037754 

037756 

037764 

037766 > 

037774' 

040002 . 

040004 . 

040012 ^ 

040014^ 

040022 - 

040030 

040036 

040040 

040046 

040052 

040060 



000004 

005037 

005237 

042737 

005327 

000001 

003123 

012737 

000001 

037654 

005037 

005237 

013746 

013746 

013746 

104401 

104401 

104401 

104401 

004737 

104416 

023727 

003454 

032737 

001450 

042737 

012737 

000240 

032737 

001774 

042737 

052737 

032737' 

001374 

042737 

013746 

012737 

052737 



001102 
001174 

100000 001174 



177524 
001176 
001112 
001174 
050742 
040136 
040155 
040165 
001163 
045016 

050746 

000340 

010000 
000254 



104405 
104405 
104405 



000001 

177522 

177530 
177532 



040000 177530 Ut 



002000 
010000 
040000 

010000 
000134 
040074 
000140 



177530 
177530 
177530 

177530 

000134 
177530 



♦EOP; 

SCOPE 

CLR 

INC 

BIC 

DEC 

JEOPCT: .UORD 
BGT 
MOV 

tENDCT: .UORD 
♦EOPCT 

aR 

INC 
MOV 
MOV 
MOV 
TYPE 
TYPE 
TYPE 
TYPE . 
CALL 
A^MAIL 
CMP- 
BLE 
BIT 
BEQ' 
BIC 
MOV 

nop: 

BIT 

BEQ . 
BIC 

Bis: 

.BIT 
6NE 
BIC> 
MOV . 
MOV 
BIS 



5«: 



$TST^M 
$PASS 

«100000.$PASS 

(PC)* 

1 

$D0AGN 

cpo^.acpo* 
1 

S^2CSRC 
♦DEVCT 
♦ERTTL.-CSP) 
«PASS.-CSP) 
lOP.ID.-CSP) 
i*E0PID,TYP0S 
.4E0PP ,,TYPDS 
..♦EOPE, TYPOS 
.♦CRLF. N \ * 
ESUMRY , - 

6»I0PCNTi#l ' 

^ «340,8»K2CSRB' 



:jZERO THE T£ST NUMBER 
; ; INCREMENT THE PASS NUMBER 
;iD0N'T ALLOU A NEG. NUMBER 
: ;L00P7 ^ 

-••YES 

I! RESTORE COUNTER 



I TURN OFF. THE LEDS 



PUSH ERROR...- - 
...AND PASS COUNTS. . ' 
AND lOP ID, NUMBER ^ 



4$ 



, iJtPRINT'ERROR SUMMARY IF REQ'D.; ,. ^ 
, { J . UPDATE ARBITERS APT-MAIL-BOX. ^ ' - ^ ; 
U IS THERE MORE THAN^IIOP. BEING TESTED? 
;;j IF- NOT* JUST. KEEP TESTING ,JHIS. ONE ,s - 
J j.IF,IOP-OiOR.l FORGET:IT^<'^ ' 



~~ ' ' TURN OFF.^QIR INTERRUPT. " 



.«Bni2.8«K2CSRD 
#NXnOP»a«K2QIR 

:«IT14 . S5K2CSRD ; ; HAS ^ VECTOR WRITTEN?' ?jk^: 

«ni0.a*K2CSRD D0N'T:ALL0U QBUS RESET.INTERRUPt 

'«m2.a*K2CSRDTji ALLOU Q BUS INTERRUPJwV 1, \% 

eBIT14,B»K2CSRp ' J ! ' BIAK RECaVED??f^r:%-^^ ^;' ^ - ' 

«iT12,'siK2CSRD ti NO INTERRUPTS TO Q BUS , ' / . ^ • ' 

a*l34.-CSP) > J, • SAVE. VECTOR ^ W ' ^-i, ' ^ 

*2$.S*134. }i LOAD VECTOR TO LET US RESTART, - • ' 

mO.S«K2CSR0 i I ALLOU INTERRUPT UHEN TPR12 IS WRITTEN 



Ill 



KXJll-CA FUNCTIONAL TEST 
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040066 000234 
040070 000001 
040072 000000 
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040074 
040100 
040102 
040106 
040106 
040112 
040114 
040116 
040120 
040122 
040124 
040126 
040126 
040130 
040132 



012716 
000002 
012637 

013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
003064 
377 



040102 
000134 
000042 



377 



000 



SPL 4 

WAIT 

HALT 

1 COMES HERE UHEN ARBITER URITES 
2$: MOV «$.(SP) 
RTI 

MOV (SP)*.a»134 



3$: 

4(: 

$GET42: MOV 
BEQ 
RESET 

>ENDAD: JSR 
NOP 
NOP 
NOP 

$OOAGN: 

JMP 

$RTNAO: .UORO 
JENULL: .BYTE 
• EVEN 



3M2.ro 
iDOAGN 

PC.(RO) 



acpo* 

AGAIN 
-l.-l.O 



...BY ARBITER 
LOCR PRIORITY LEVEL 
WAIT HERE FOR INTERRUPT 



TPR12 

SET UP STACK FOR FAKE RETURN 

RSTORE VECTOR 

GEl MONITOR ADDRESS 
BRANCH IF NO MONITOR 
CLEAR THE WORLD 
GO TO MONITOR 
SAVE ROOM 
FOR 
ACTll 

: {RETURN 

::NULL CHARACTER STRING 



5451 
















5452 










i EfC-PASS TEXT 


STRINGS. 




5453 
















5454 


040136 


200 


113 


130 


JeOPID: .ASCIZ 


<CRLF>/KXJ11-CA 


ID* 


5455 


040155 


054 


040 


120 


$EOPP: .ASCIZ 


/, PASS / 




5456 


040165 


054 


040 


124 


JEOPE: .ASCIZ 


/, TOTAL ERRORS 


/ 


5457 










.EVEN 
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.SBTTL SCOPE HANDLER ROUTINE 



♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INCREMENT 

♦AND LOAD THE TEST NUMBERC iTSTW) INTO THE DISPLAY REG.(DISPLAY<7:0>) 

♦AND LOAD THE ERROR FLAG (*ERFLG) INTO DISPLAY<15:08> 

♦THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

♦SU09»1 LOOP ON ERROR 

♦SU06=1 LOOP ON TEST IN SUR<6:0> 

♦CALL 

* SCOPE :;SCOPE-IOT 



040206 








'SCOPE: 








040206 


104410 








CKSUR 




TEST FOR CHANGE IN SOFT SUR 


040210 


021627 


001000 






CMP 


(SP).*1000 : 


lOT CALL FROM TRAP CATCHER ?? 


040214 


101005 








BHI 


1* : 


SKIP IF NOT. 


040216 


162716 


000004 






SUB 


#4.CSP) 


ADJUST VECTOR... 


040222 


012616 








MOV 


CSP)*.CSP) ! 


...POP IT ONCE... 


040224 


000137 


002416 






JMP 


UNXTRP ; 


..AND DO SOMETHING !! 


040230 








1$: 
















:»*#*START OF 


CODE FOR THE XOR TESTER#*#*# 


040230 


000416 






♦XTSTR: 


BR 


6) ; 


IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (N0P=240) 


040232 


013746 


000004 






MOV 


a*ERRVEC,-(SP) ; 


SAVE THE CONTENTS OF THE ERROR VECTOR 


040236 


012737 


040256 


000004 




MOV 


*5*.a*£RRVEC ; 


SET FOR TIMEOUT 


040244 


005737 


177060 






TST 


a#177060 ; 


TIME OUT ON XOR? 


040250 


012637 


000004 






MOV 


CSP)*.a#ERRVEC ; 


RESTORE THE ERROR VECTOR 


040254 


000450 








BR 


JSVLAD ; 


GO TO THE NEXT TEST 


040256 


022626 






5(: 


CMP 


(SP)*.(SP)* ! 


•CLEAR THE STACK AFTER A TIME OUT 


040260 


012637 


000004 






MOV 


(SP)».a#ERRVEC ; 


RESTORE THE ERROR VECTOR 


040264 


000436 








BR 




LOOP ON THE PRESENT TEST 


040266 








6$:sM««#END OF 


CODE FOR THE XOR* 


FESTERWM 


040266 


032777 


AAA M A A 

000400 


140644 




BIT 


«8IT08,SSUR 


LOOP ON SPEC. TEST? 


040274 


001423 








BEQ 


2$ ; 


BR IF NO 


040276 


005046 








CLR 


-CSP) ; 


CLEAR A TEMP. LOCATION 


040300 


117716 


140634 






MOVB 


aSWR.CSP) ; 


PICKUP THE DESIRED TEST NUMBER 


040304 


042716 


000200 






BIC 


#*SWRMK.(SP) ; 


MASK OUT UNDESIRED BITS 


040310 


001414 








BEQ 


8* : 


[BRANCH IF BAD TEST NUMBER IN SUR 


040312 


022716 


000016 






CMP 


*16.(SP) ; 


(CHECK T^€ NUMBER IN THE SWR 


Ail AT 1 


AAOil 1 1 

OOc'Hl 








BLT 


6i ; 


(BRANCH IF TEST NUMBER IS OUT OF RANGE 


040320 


011637 


001102 






MOV 


CSP),*TSTNM ; 


(UPDATE THE TEST NUMBER 


040324 


005316 








DEC 


(SP) 5 


(BACKUP BY ONE 


040326 


006316 








ASL 


(SP) 


[SCALE THE TEST NUMBER AS AN INDEX 


040330 


062716 


040446 






ADD 


#$SU08TBL.(SP) i 


.FORM THE ADDRESS OF TEST POINTER 


040334 


013637 


001106 






MOV 


a(SP)»,»LPADR ; 


SET LOOP ADDRESS TO DESIRED TEST 


040340 


000434 








BR 


♦OVER : 


,G0 LOOP ON THE TEST 


040342 


005726 






8$: 


TST 


(SP)* ! 


•CLEAN THE BAD TEST NUMBER OFF OF THE STACK 


040344 


105737 


001103 




2$: 


TSTB 


♦ERFLG ; 


-HAS AN ERROR OCCURRED? 


040350 


001412 








BEQ 


JSVLAD : 


BR IF NO 


040352 


032777 


001000 


140560 




BIT 


«BIT09.aSUR 


LOOP ON ERROR? 


040360 


001404 








BEQ 


4$ s 


BR IF NO 


040362 


013737 


001110 


001106 


7$: 


MOV 


♦LPERR.JLPADR ; 


•SET LOOP ADDRESS TO LAST SCOPE 


040370 


000420 








BR 


♦OVER 




040372 


105037 


001103 




4$: 


CLRB 


♦ERFLG 


ZERO THE ERROR FLAG 


040376 


105237 


001102 




$SVLA0: 


INCB 


$TSTrt1 ; 


COUNT TEST NUMBERS 


040402 


113737 


001102 


001172 




MOVB 


$TSTIt1.$TESTN : 


SET TEST NUMBER IN APT MAILBOX 


040410 


011637 


001106 






MOV 


(SP).*LPADR 


SAVE SCOPE LOOP ADDRESS 
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Ail 1 J 


All 


001110 




nOV 


CSP}. *LPtRR 


040420 


005037 


001160 




CLR 


iESCAPE 






AAA/VM 
UOOOOl 


/v\i lie 
001113 


HUVo 


*1 , »EKnAX 




A1 ^TTJ 


AA1 1 AO 


14030<: 


*UVtK ; nUV 


♦ TSTrfl, aOISPLAY 




013716 


iVM 1 A£ 

001106 




nOV 


♦LPAOR.CSPj 










DTT 




AAAA1 A 






ACUAfiTDI , 
DCDT 4 TkJ 1 




r\A f\A AC 


AAT1 to 








TST1*2 










. WUKU 












LJAOTh 
.MUKU 






A1 1 '^1 A 






unon 
. WUKU 


TCT^ 




A1 A 






UADA 

. WIUKU 






A1 XAXA 






. WUKU 


TCTt 


Ad AAA? 


A1 ^7AA 






. WUKU 




AAA AAA 








unon 

.WUKU 


TCT1 AiO 


040466 

V^T 


024604 










040470 


026222 






.WORD 


TST12*2 


040472 


027414 






.WORD 


TST13*2 


040474 


032126 






.WORD 


TST14*2 


040476 


033176 






.WORD 


TST15*2 


040500 


037200 






.WORD 


TST16*2 



SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROR ADDRESS 

CWLY ALLOW 0t€Cl) ERROR ON NEXT TEST 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 

FIXES PS 



STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 



AIWRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 



OF TEST 
OF TEST 
OF TEST 
OF TEST 
OF TEST 
OF TEST 
OF TEST 
OF TEST 10 
OF TEST 11 
OF TEST 12 
OF TEST 13 
OF TEST 14 
OF TEST 15 
OF TEST 16 



1 
2 
3 
4 

5 
6 

7 
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.S8TTL TYPE ROUTINE 











; * 


TYPE 












; * 
;* 


MESAOR 




040502 


105737 


001157 




tTYPE: 


TSTB 


$TPFLG ; 


040506 


100002 








BPL 


1$ : 


040510 


A A A ^ y% 

000000 








HALT 




040512 


AAA 4 V A 

000430 








BR 


7 A 

3* ; 


040514 


010046 






It : 


MOV 


OA /■ c r\ \ 

RO,-(SP) ; 


040516 


A 4 ^ ^ A A 

017600 


AAA AAA 

000002 






MOV 


S2CSPj,R0 ; 


040522 


122737 


A A A A A A 

000001 


A A 4 AA^ 

001206 




CMPB 


ffAPTENV,$ENV ; 


/\F v/\ 

040530 


001011 








BNE 


62$ : 


/\M /\P 

040532 


4 ^A"T*"» 

132737 


AAA 4 AA 

000100 


AA4 A A ^ 

001207 




BITS 


A A OTnOOOl A Pkl%fU 

SAPTSPOOL , $ENVM j 


040540 


001405 








oEQ 


£ A A 

62$ ; 


040542 


010037 


A4 app a 

040552 






nOV 


OA f 4 A 

R0,61$ : 


040546 


AA M ^ 

004737 


Ail A 

042542 






JSR 


O^ AATW 

PC , $ATY3 ; 


040552 


A A AAAA 

000000 






61$: 


.WORD 


0 ; 


040554 


132737 


AAA A A A 

000040 


A A 4 A A~7 

001207 


62$ : 


OTTO 

BITB 


wAPTCSUP , $ ENVM ; 


040562 


A A 4 AAV 

001003 








BNE 


£ A A 

60$ : 


040564 


112046 






2$: 


HOVB 


(RO)*.-(SP) ! 


040566 


001005 








BNE 


4$ : 


040570 


AAP^ A^ 

005726 








TST 


(SP)+ ; 


040572 


A A A^ A A 

012600 






60$: 


MOV 


X A A ^ OA 

(SP)*,RO s 


040574 


062716 


A A A A A ^ 

000002 




3$ : 


ADD 


■ ^ AO ^ 

*2,(SP) ; 


A ^ A^ AA 

040600 


A A A A A A 

000002 








nTT 

RTI 




Ail A^/X'i 

040602 


122 r 16 


000011 






Cnro 


JtLiT r CD ^ 

»ni , lor J ; 


040606 


001430 








BEQ 


8$ 


040610 


122716 


000200 






CMPB 


*CRLF.(SP) : 


040614 


001006 








BNE 


5$ 


040616 


005726 








TST 


(SP)* ; 


040620 


104401 








TYPE 




040622 


001163 








$CRLF 




040624 


105037 


041032 






CLRB 


$CHARCNT i 


040630 


000755 








BR 


2$ ; 


040632 


004737 


040714 




5$: 


JSR 


PC.$TYPEC ; 


040636 


123726 


001156 




6$: 


CMPB 


$FILLC.CSP)+ s 


040642 


001350 








BNE 


2$ : 


040644 


013746 


001154 






MOV 


$NULL, (SP) ; 


040650 


105366 


000001 




7$: 


OECB 


KSP) i 


040654 


002770 








BLT 


6$ i 


040656 


004737 


040714 






JSR 


PC.$TYPEC ! 


040662 


105337 


041032 






DECB 


$CHARCNT ; 


040666 


000770 








BR 


7$ s 



♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE UITH A 0 BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

♦N0TE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

♦CALL: 

*1) USING A TRAP INSTRUCTION 
* TYPE .MESADR 

*0R 



;:MESAOR IS FIRST ADDRESS ^ AN ASCIZ STRING 



IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO, GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO. GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

.•BRANCH IF NOT <CRLF> 

{POP <CR^<LF> EQUIV 
sTYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO- -GO POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 
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: HORIZONTAL TAB PROCESSOR 





112716 


000040 




8$ : 


HOVB 


.(SP) 


040674 


004737 


040714 




9$: 


JSR 


PC.*TYPEC 


040700 


132737 


000007 

WWW 1 


041032 




BITB 


*7 , $CHARCNT 


040706 


001372 








BNE 


9$ 


040710 


005726 








TST 


(SP)* 


040712 


000724 








BR 


2t 


040714 








*TYPEC: 






040714 


105777 


140224 






TSTB 


3$TKS 


040720 


100022 








BPL 


10* 


040722 


017746 


140220 






MOV 


3$TKB,-(SP) 


040726 


042716 


177600 






BIC 


*177600,(SP) 


040732 


122716 


000023 






CMPB 


*$XOFF,(SP) 


040736 


001012 








BNE 


102* 


040740 








101*: 






040740 


105777 


140200 






TSTB 


S*TKS 


040744 


100375 








BPL 


101* 


040746 


117716 


140174 






MOVB 


a*TKB.(SP) 


040752 


042716 


177600 






BIC 


*177600,(SP) 


040756 


122716 


000021 






CMPB 


#*XON.(SP) 


040762 


001366 








BNE 


101* 


040764 








102$: 






040764 


005726 








TST 


(SP)* 


040766 








10$: 






040766 


105777 


140156 






TSTB 


S*TPS 


040772 


100375 








BPL 


10* 


040774 


116677 


000002 


140150 




MOVB 


2(SP),a*TPB 


041002 


122766 


000015 


000002 




CMPB 


#CR.2(SP) 


041010 


001003 








BNE 


1* 


041012 


105037 


041032 






CLRB 


♦CHARCNT 


041016 


000406 








BR 


*TYPEX 


041020 


122766 


000012 


000002 


U: 


CMPB 


#LF.2(SP) 


041026 


001402 








BEQ 


*TYPEX 


041030 


105227 








INCB 


(PC)* 


041032 


000000 






«CHARCNT:.UORO 


0 


041034 


000207 






$TYPEX: 


RTS 


PC 
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: REPLACE TAB UITH SPACE 

:TYPE A SPACE 

: BRANCH IF NOT AT 

J TAB STOP 

jPOP SPACE OFF STACK 
sGET NEXT CHARACTER 

:CHAR IN KYBD BUFFER? 
;BR IF NOT 
;GET CHAR 

.•STRIP EXTRANEOUS BITS 
;UAS CHAR XOFF 
:BR IF NOT 

;;UAIT FOR CHAR 

J GET CHAR 
; STRIP IT 
:UAS IT XON? 
;BR IF NOT 

sjFIX STACK 

;;UAIT UNTIL PRINTER IS READY 

J LOAD CHAR TO BE TYPED INTO DATA REG. 
;IS CHARACTER A CARRIAGE RETURN? 
; BRANCH IF NO 

; YES- -CLEAR CHARACTER COWT 
;EXIT 

!IS CHARACTER A LINE FEED? 
{BRANCH IF YES 
{COUNT THE CHARACTER 
{CHARACTER COUNT STORAGE 



{MJOOOl 
;MJD001 
! MJOOOl 
{MJOOOl 
{MJOOOl 
{MJOOOl 
{MJOOOl 
{MJDOOl 
{MJDOOl 
{MJDOOl 
{MJDOOl 
{MJDOOl 
{MJOOOl 
{MJDOOl 
{MJOOOl 
{MJOOOl 

{MJDOOl 
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5471 .S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

:*THIS ROUTINE IS USED TO CHANGE A 16 BIT BINARY NUMBER TO A 5-DIGIT 
j*SIGNED DECIMAL (ASCII) NUTBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITI*/E OR NEGATIVE A SPACE OR A MINUS SIGN UILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE fWBER. LEADING ZEROS UILL ALWAYS BE 
;*REPLACED WITH SPACES. 
i*CALL: 

;* MOV NUM.-(SP) : jPUT THE BINARY NUMBER ON THE STACK 

}* TYPDS ;s GO TO THE ROUTINE 

041036 ITYPDS: 



041036 


010046 








MOV 


RO.-(SP) ; 


;PUSH RO ON STACK 


041040 


010146 








MOV 


Rl. (SP) 5 


;PUSH Rl ON STACK 


041042 


010246 








mv 


R2. (SP) : 


tPV^ R2 ON STACK 


041044 


010346 








mv 


R3,-(SP) ; 


;PUSH R3 ON STACK 


041046 


010546 








MOV 


R5,-CSP) ! 


jPUSH R5 ON STACK 


041050 


012746 


020200 






MOV 


«20200. (SP) ; 


:SET BLANK SWITCH AND SIGN 


041054 


016605 


000020 






MOV 


20(SP).R5 i 


:GET THE INPUT NUMBER 


041060 


100004 








BPL 


1> : 


:BR IF INPUT IS POS. 


041062 


005405 








NEG 


R5 : 


sMAKE THE BINARY NUMBER POS. 


041064 


112766 


000055 


000001 




MOVB 


#'-.l(SP) s 


:MAKE THE ASCII NUMBER NEG. 


041072 


005000 








CLR 


RO ; 


5 ZERO THE CONSTANTS INDEX 


041074 


012703 


041252 






MOV 


#$D6LK.R3 i 


: SETUP THE OUTPUT POINTER 


041100 


112723 


000040 






MOVB 


*' ,CR3)* : 


sSET THE FIRST CHARACTER TO A BLANK 


041104 


005002 






2i: 


CLR 


R2 ; 


: CLEAR THE BCD NUMBER 


041106 


016001 


041242 






MOV 


$DTBL(R0).R1 


jGET THE CONSTANT 


041112 


160105 






31: 


SUB 


R1.R5 ; 


;FORM THIS BCD DIGIT 


041114 


002402 








BLT 


4$ : 


;BR IF DONE 


041116 


005202 








INC 


R2 s 


; INCREASE THE BCD DIGIT BY 1 


041120 


000774 








BR 


3$ 




041122 


060105 






4«: 


ADO 


R1,R5 ! 


;ADO BACK THE CONSTANT 


041124 


005702 








TST 


R2 : 


; CHECK IF BCD DIGIT -0 


041126 


001002 








BNE 


5» ; 


jFALL THROUGH IF 0 


041130 


105716 








TSTB 


(SP) ; 


! STILL DOING LEADING O'S? 


041132 


100407 








BMI 


7$ ; 


jBR IF YES » 


041134 


106316 






51: 


ASLB 


(SP) ; 


sMSD? 


041136 


103003 








BCC 


61 s 


:BR IF NO 


041140 


116663 


000001 


177777 




MOVB 


1(SP).-1(R3) ; 


J YES "SET THE SIGN 


041146 


052702 


000060 




6»: 


BIS 


#'0,R2 ; 


:MAKE THE BCD DIGIT ASCII 


041152 


052702 


000040 




7*: 


BIS 


#' .R2 


:MAKE IT A SPACE IF NOT ALREADY A DIGIT 


041156 


110223 






MOVB 


R2.(R3)* ! 


{PUT THIS CHARACTER IN THE OUTPUT BUFFER 


041160 


005720 








TST 


(R0)» 


{JUST INCREMENTING 


041162 


020027 


000010 






CMP 


R0.«10 


{CHECK THE TABLE INDEX 


041166 


002746 








BLT 


2« : 


{GO DO THE NEXT DIGIT 


041170 


003002 








BGT 


81 ; 


{GO TO EXIT 


041172 


010502 








MOV 


R5.R2 ! 


{GET THE LSD 


041174 


000764 








BR 


61 i 


{GO CHANGE TO ASCII 


041176 


105726 






8$: 


TSTB 


(SP)» ; 


{WAS THE LSO THE FIRST NON-ZERO? 


041200 


100003 








BPL 


91 ; 


'BR IF NO 


041202 


116663 


177777 


177776 




MOVB 


-1(SP).-2(R3) } 


1 YES- -SET THE SIGN FOR TYPING 


041210 


105013 






91: 


CLRB 


(R3) t 


{SET THE TERMINATOR 


041212 


012605 








MOV 


(SP)*.R5 ! 


{POP STACK INTO R5 


041214 


012603 








MOV 


(SP)*.R3 ! 


{POP STACK INTO R3 


041216 


012602 








MOV 


(SP)*.R2 ; 


{POP STACK INTO R2 


041220 


012601 








MOV 


(SP)».R1 


{POP STACK INTO Rl 
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5472 
5473 
5474 
54 75 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 



041222 
041224 
041230 
041256 
041240 
041242 
041244 
041246 
041250 
041252 



041210 

041262 
041264 
041270 
041272 
041276 
041302 
041304 



012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 



041262 
041210 
000424 
041262 
105013 
124327 
001002 
112713 
020327 
101370 
000742 



041252 
000002 



000004 



000040 

000177 
041252 



lOTBL: 



IDBLK: 



NOV 

TYPE 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



(SP)*.RO 
,*D6LK 
2{SP).4(SP) 
(SP)*.(SP) 



: :POP STACK INTO RO 
; ;NOU TYPE THE NUMBER 
:. -ADJUST THE STACK 

; ;RETURN TO USER 



/////////////////// OVERLAY PATCH \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

BACK UP AND PATCH ITYPDS TO REALLY NULL LEAD ZEROS 
INSTEAD OF REPLACING THEM WITH SPACES. 

NOTE: 100000(8) GETS PRINTED AS -0 (IT'S REALLY -32768.). 



9*: 

♦♦TOX: 
II: 



2»: 



SVPC-. 
>$DTBL-32 



BR 
. -SVPC 
CLR8 
CMPB 
6NE 
MOVB 
CMP 
BHI 
BR 



niDX 
(R3) 

-(R3).*40 
2$ 

*177,(R3) 
R3.HDBLK 
U 

*DTBL-30 



SAVE PC. . . 
...AND POINT TO 9*. 
BR TO PATCH. 

SET STRING TERMINATOR. 

SKIP IF NOT <SP>. 

ELSE. CHANGE TO A <NULL>. 

LOOP 'TIL DONE. 
RETURN TO 9* ♦2. 
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5490 .S8TTL BINARY TO OCTAL C ASCII) A»C TYPE 



♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

♦♦TYPOS- --ENTER HERE TO SETUP SUPPRESS ZEROS AfC NUTBER 
♦CALL: 

NUWER TO BE TYPED 



TO A 6 -DIGIT 
OF DIGITS TO TYPE 



♦ MOV NUM. (SP) 

♦ TYPOS 

♦ .BYTE N 

♦ .BYTE M 
♦ 
* 
♦ 

♦♦TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦♦TYPOS OR ♦TYPOC 
♦CALL* 

♦ ' MOV NUM.-(SP) 

♦ TYPON 
♦ 

♦♦TYPOC- --ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
♦CALL: 

♦ MOV NUM.-(SP) 

♦ TYPOC 



CALL FOR TYPEOUT 

N=l TO 6 FOR NUTBER OF DIGITS TO TYPE 

M=l OR 0 

: : 1-TYPE LEADING ZEROS 
;:0-SUPPRESS LEADING ZEROS 



! } NUMBER TO BE TYPED 
;:CALL FOR TYPEOUT 







UUvOvO 




♦ 1 TrUa: 


nuv 


CD ^ t CQ y 


041312 


116637 


000001 


041531 




MOVB 


1(SP),^0FILL 


041320 


112637 


041533 






MOVB 


(SP)*.^0M0DE*1 


041324 


062716 


000002 






ADD 


#2.CSP) 


041330 


000406 








BR 


♦TYPON 


041332 


112737 


000001 


041531 


♦TYPOC: 


MOVB 


^.♦OFILL 


041340 


112737 


000006 


041533 




MOVB 


«6.^0M0DE«1 


041346 


112737 


000005 


041530 


♦TYPON: 


MOVB 


#5.^0CNT 


041354 


010346 








MOV 


R3..(SP) 


041356 


010446 








MOV 


R4,-CSP) 
R5.-(SP) 


041360 


010546 








MOV 


041362 


113704 


041533 






MOVB 


♦0M0DE«1.R4 


041366 


005404 








NEC 


R4 


041370 


062704 


000006 






ADD 


«6.R4 


041374 


110437 


041532 






MOVB 


R4,^0M0DE 


041400 


113704 


041531 






MOVB 


♦0FILL,R4 


041404 


016605 


000012 






MOV 


12(SP).R5 


041410 


005003 








CLR 


R3 


041412 


006105 






1$: 


ROL 


R5 


041414 


000404 








BR 


3^ 


041416 


006105 






2«: 


ROL 


R5 


041420 


006105 








ROL 


R5 


041422 


006105 








ROL 


R5 


041424 


010503 








MOV 


R5.R3 


041426 


006103 






3*: 


ROL 


R3 


041430 


105337 


041532 






DECB 


♦OMOOE 


041434 


100016 








BPL 


7i 


041436 


042703 


177770 






BIC 


#177770, R3 


041442 


001002 








BNE 


4» 


041444 


005704 








TST 


R4 


041446 


001403 








BEQ 


5* 


041450 


005204 






4^: 


INC 


R4 



! NUMBER TO BE TYPED 
sCALL FOR TYPEOUT 



: PICKUP THE MODE 
sLOAO ZERO FILL SUITCH 
{NUMBER OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 

{SET THE ZERO FILL SUITCH 
{SET FOR SIXC6) DIGITS 
{SET THE ITERATION COUNT 
{SAVE R3 
{SAVE R4 
■SAVE R5 

jIgET THE NUMBER OF DIGITS TO TYPE 

{{SUBTRACT IT FOR MAX. ALLOWED 
{{SAVE IT FOR USE 
{ {GET THE ZERO FILL SWITCH 
{ {PICKUP THE INPUT NUTBER 
{{CLEAR THE OUTPUT WORD 
{{ROTATE MSB INTO "C 
{ :G0 DO MSB 
{{FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 
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041452 


052703 


000060 




BIS 


#'0.R3 


041456 


052703 


000040 


5$: 


BIS 


*' .R3 


041462 


110337 


041526 




MOVB 


R3,8$ 


041466 


104401 


041526 




TYPE 


.8* 


041472 


105337 


041530 


7»: 


DECB 


$OCNT 


041476 


003347 






BGT 


2$ 


041500 


002402 






BLT 


6$ 


041502 


005204 






INC 


R4 


041504 


000744 






BR 


2* 


041506 


012605 




6(: 


MOV 


CSP)*,R5 


041510 


012604 






MOV 


CSP)*.R4 


041512 


012603 






MOV 


CSP)*.R3 


041514 


016666 


000002 000004 




MOV 


2CSP).4CSP) 


041522 


012616 






MOV 


(SP)*.(SP) 


041524 


000002 






RTI 


041526 


000 




8$: 


.BYTE 


0 


041527 


000 






.BYTE 


0 


041530 


000 




♦OCNT : 


.BYTE 


0 


041531 


000 




$OFILL: 


.BYTE 


0 


041532 


000000 




(OMODE: 


.WORD 


0 



Page 145 



MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLAM< 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 
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3492 



.S8TTL BINARY TO ASCII AND TYPE ROUTINE 

; :*************************************************************** 

i*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUTQER TO A 16 BIT 
!*BINARY-ASCII NUWER AND TYPE IT. 

I* nOV NUMBER. (SP) ::NUreER TO BE TYPED 

TYPBN ssTYPE IT 



041534 


010146 






$TYPBN: 


MOV 


Rl.-CSP) 


; J SAVE Rl ON THE STACK 


041536 


016601 


000006 






nov 


6CSP).R1 


jsGET THE INPUT NUMBER 


041542 


000261 








SEC 




{;SET "C" SO CAN KEEP TRACK OF THE NUMBER 


041544 


112737 


000060 


041606 


1*: 


M0V6 


«'0.$BIN 


;;SET CHARACTER TO AN ASCII "0". 


041552 


006101 








ROL 


Rl 


; ;GET THIS BIT 


041554 


001406 








BEQ 


2> 


' 'DONE? 


041556 


105537 


041606 






AOCB 


iBlH 


11 NO- -SET THE CHARACTER EQUAL TO THIS BIT 


041562 


104401 


041606 






TYPE 


.(BIN 


;:G0 TYPE THIS BIT 


041566 


000241 








CLC 


;;aEAR "C" SO CAN KEEP TRACK OF BITS 


041570 
041572 


000765 








BR 


U 


;;G0 DO THE NEXT BIT 


012601 






2$: 


MOV 


CSP)*,R1 


; ;POP THE STACK INTO Rl 


041574 


016666 


000002 


000004 




nov 


2(SP).4(SP) 


ADJUST THE STACK 


041602 


012616 








HOV 


(SP)*.(SP) 




041604 


000002 








RTI 


:: RETURN TO USER 


041606 


000 


000 




$BIN: 


.BYTE 


0,0 


STORAGE FOR ASCII CHAR. AND TERMINATOR 
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TTY INPUT ROUTINE 

5494 .SBTTL TTY INPUT ROUTINE 

.ENABL LSB 

; 

:*SOFTUARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND UILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 



041610 


022737 


000176 


001140 


♦CKSWR: 


CMP 


<rSWREG.SWR 




IS THE SOFT-SWR SELECTED? 


041616 


001074 








BNE 


15$ 




BRANCH IF NO 


041620 


105777 


137320 






TSTB 


a$TKS 




CHAR THERE? 


041624 


100071 








BPL 


15$ 




IF HO, DON'T WAIT AROUND 


041626 


117746 


137314 






MOVB 


a*TKB.-(SP) 




SAVE THE CHAR 


041632 


Ail * £. 

042716 


177600 






Die 


<FtC177,(SPj 




PTnTO nrc tut* #i**^tt 

STRIP-CrF THE ASCII 


tUl^ ATA 


\JCC 1 CO 


\j\AAjyj 1 








a7 f CD ^. 






041642 


001062 








BNE 


15$ 




NO. RETURN TO USER 


041644 


123727 


001134 


000001 




CMPB 


$AUT0B.#1 




ARE WE RUNNING IN AUTO-MODE? 


041652 


001456 








BEQ 


15$ 




BRANCH IF YES 


041654 


104401 


042345 






TYPE 


. $CNTLG 




ECHO THE CONTROL-G (tG) 


041660 


104401 


042352 




IGTSWR: 


TYPE 


.$MSWR 




TYPE CURRENT CONTENTS 


041664 


013746 


000176 






MOV 


SUREG.-(SP) 




SAVE SWREG FOR TYPEOUT 


041670 


104402 








TYPOC 




iGO TYPE- -OCTAL ASCIICALL DIGITS) 


041672 


104401 


042363 






TYPE 


,$MNEU 




PROMPT FOR NEW SUR 


041676 


005046 






19*: 


aR 


-CSP) 




■CLEAR COUNTER 


041700 


005046 








aR 


-CSP) 




;THE NEW SWR 


041702 


105777 


137236 




71: 


TSTB 


a$TKS 




;CHAR THERE? 


041706 


100375 








BPL 


7$ 




sIF NOT TRY AGAIN 


041710 


117746 


137232 






MOVB 


8$TKB,-CSP) 




.PICK UP CHAR 


041714 


042716 


177600 






BIG 


*tC177,(SP) 




sMAKE IT 7-BIT ASCII 



041720 021627 000025 9$: CMP 

041724 001005 BNE 

041726 104401 042340 TYPE 

041732 062706 000006 20$: ADD 

041736 000757 BR 



041740 021627 000015 10$: CMP 

041744 001022 BNE 

041746 005766 000004 TST 

041752 001403 BEQ 

041754 016677 000002 137156 MOV 

041762 062706 000006 11$: ADD 

041766 104401 001163 14$: TYPE 

041772 123727 001135 000001 CMPB 

042000 001003 BNE 

042002 012777 000100 137134 MOV 

042010 000002 15$: RTI 

042012 004737 040714 16$: JSR 

042016 021627 000060 CMP 

042022 002420 BLT 



(SP),#25 .-as IT A CONTROL -U? 

10$ :: BRANCH IF NOT 

.$CNTLU s;YES. ECHO CONTROL-U (tU) 

#6,SP .-s IGNORE PREVIOUS INPUT 

19$ !J LET'S TRY IT AGAIN 



(SP).#15 :;IS IT A <CR>? 

16$ BRANCH IF NO 

4(SP) J : YES. IS IT THE FIRST CHAR? 

11$ ;!BRANCH IF YES 

2(SP),aSWR i:SAVENEWSWR 

#6.SP ;s CLEAR UP STACK 

,$CRLF ;:ECHO <CR> AND <LF> 

$INTAG.#1 RE-ENABLE TTY KBD INTERRUPTS? 

15$ ii BRANCH IF NOT 

#100.a$TKS RE-ENABLE TTY KBD INTERRUPTS 

;iRETURN 

PC.$TYPEC ;;ECHO CHAR 

CSP).«60 ;:CHAR < 0? 

18$ ; jBRANCH IF YES 
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042024 


021o27 


000067 




CnP 


lSPj,*67 


042050 


/VAT A 4 C 

003015 






DUT 


18» 


/\A OAT 

042032 




AAAA£.A 

000060 




DTI* 


»60,lSPj* 


04203© 


OOd /OO 


AAAAAO 

000002 




TCT 


or CD ^ 


04204c 










1 




UUo31b 






A CI 


r CD 












^ Or J 


042050 


006316 






ASL 


(SP) 


042052 


005266 


000002 


17$: 


INC 


2(SP) 


042056 


056616 


177776 




BIS 


-2(SP).(SP) 


042062 


000707 






BR 


1\ 


042064 


104401 


001162 


18$: 


TYPE 


.IQUES 


042070 


000720 






BR 


20$ 



.DSABL LSB 



CHAR > 7? 

BRAfCH IF YES 

STRIP -OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO. SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 

KEEP COUNT OF CHAR 

SET IN NEW CHAR 

GET THE NEXT ONE 

TYPE ?<CR><LF> 

SIMULATE CONTROL -U 



042072 


011646 






fRDCHR: 


MOV 


(SP),-(SP) 


042074 


016666 


000004 


000002 




MOV 


4(SP).2CSP) 


042102 


105777 


137036 




1$: 


TSTB 


S$TKS 


042106 


100375 








BPL 


1* 


042110 


117766 


137032 


000004 




MOVB 


a$TKB.4CSP) 


042116 


042766 


177600 


000004 




BIC 


#tC<177>.4(SP) 


042124 


026627 


000004 


000023 




CMP 


4CSP).023 


042132 


003013 








BNE 


3* 


042134 


105777 


137004 




2$: 


TSTB 


3ITKS 


042140 


100375 








BPL 


2$ 


042142 


117746 


137000 






MOVB 


a*TKB.-(SP) 


042146 


042716 


177600 






BIC 


*tC177.(SP) 


042152 


022627 


000021 






CMP 


(SP)*,#21 


042156 


001366 








BNE 


21 


042160 


000750 








BR 


1$ 


042162 


026627 


000004 


000021 


3$: 


CMP 


4(SP).#*X0N 


042170 


001744 








BEQ 


1* 


042172 


026627 


000004 


000140 




CMP 


4(SP).#140 


042200 


002407 








BLT 


41 


042202 


026627 


000004 


000175 




CMP 


4(SP).#175 


042210 


003003 








BGT 


4$ 


042212 


042766 


000040 


000004 




BIC 


♦40.4CSP) 


042220 


000002 






4$: 


RTI 




















;*THIS ROUTINE WILL INPUT A STf 










:*CALL: 














i* 


ROLIN 












J* 
;* 


RETURN HERE 


042222 


010346 






$RDLIN: 


MOV 


R3.-(SP) 


042224 


012703 


042330 




11: 


MOV 


*nTYIN.R3 


042230 


022703 


042340 




21: 


CMP 


«TTYIN*8.,R3 



♦THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 

INPUT A SINGLE CHARACTER FROM THE TTY 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PC 



ROCHR 

RETURN HERE 



PUSH DOWN THE 
SAVE THE PS 
UAIT FOR 
A CHARACTER 
READ THE TTY 
GET RID OF JUNK IF ANY 
IS IT A CONTROL -S? 
BRANCH IF NO 
WAIT FOR A CHARACTER 
LOOP UNTIL ITS THERE 
GET CHARACTER 
MAKE IT 7-BIT ASCII 
IS IT A CONTROL-Q? 
IF NOT DISCARD IT 
YES. RESUME 

IS IT A RANDOM XON? ;RAN001 

BRANCH IF YES ;RAN001 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 

GO BACK TO USER 

; FROM THE TTY 



;s INPUT A STRING FROM THE TTY 

J ; ADDRESS OF FIRST CHARACTER UILL BE ON THE STACK 
s; TERMINATOR UILL BE A BYTE OF ALL O'S 

::SAVE R3 
;;GET ADDRESS 
BUFFER FULL? 
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042234 


101405 








BLOS 


4$ 


;BR IF YES 


042236 


104411 








RDCHR 




;G0 READ ONE CHARACTER FROM THE TTY 


042240 


112613 








ttOVB 


(SP)^.CR3) i 


:GET CHARACTER 


042242 


122713 


000177 




10$: 


CMPB 


*177 (R3) 


jIS IT A RUBOUT 


042246 


001003 








BNE 


31 i 


;SKIP IF NOT 


042250 


104401 


001162 




4$: 


TYPE 


.^QUES 


jTYPE A ' ?' 


042254 


000763 








BR 


1$ 


; CLEAR THE BUFFER AND LOOP 


042256 


111337 


042326 




3*: 


MOVB 


(R3).9$ 


;ECHO THE CHARACTER 


042262 


104401 


042326 






TYPE 


.9$ 


; CHECK FOR RETURN 


042266 


122723 


000015 






CMPB 


*15.(R3)* 


042272 


001356 








BNE 


2$ 


;LOOP Ir NOT RETURN 


042274 


105063 


177777 






CLRB 


-1CR3J 


; CLEAR RETWN CTHE 15} 


042300 


104401 


001164 






TYPE 




;TYPE A LINE FEED 


042304 


012603 








MOV 


(SPj* ,R3 


jKtSTOKt k3 


042306 


011646 








MOV 


(SPj.-CSPj 


AfN n ir'T Ti ir~ r'Tft/*i/ Akin r»i it Ai^r^nrrr' r\c 

, : ADJUST THE STACK nW PUT ADDRESS Or 


042310 


016666 


000004 


000002 




MOV 


4(SP J ,2tSP J 


CTOCT ACPTT f^LIADA^TCO nU TT 

rlKbl AbLll UnAKHLItn UN 11 


042316 


012766 


042330 


000004 




MOV 


*»TTYIN,4CSP J 




042324 


000002 








RTI 




J ; Kt 1 UKN 




WO 






7? : 




A 
V 


. . QTnPAflF FflR AQrTT THAR TD TYPF 


042327 


000 








.BYTE 


0 


J {TERMINATOR 


042330 








♦TTYIN: 


• BLKB 


8. 


;;RESERVE 8 BYTES FOR TTY INPUT 


042340 


136 


125 


015 


$CNTLU: 


.ASCIZ 


/tU/<15><12> 


;; CONTROL "U" 


042345 


136 


107 


015 


♦CNTLG: 


.ASCIZ 


/tG/<15><12> 


; {CONTROL "G" 


042352 


015 


012 


123 


$MSUR: 


.ASCIZ 


<15><12>/SUR = / 




042363 


040 


040 


116 




.ASCIZ 


/ NEW = / 





THE 
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.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

♦THIS ROUTINE UILL f«AO AN OCTAL (ASCII) NUTBER FROM THE TTY AND 
♦CHANGE IT TO BINARY. 

♦THE INPUT CHARACTERS UILL BE CHECKED TO INSURED THEY ARE LEGAL 
♦OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" UILL BE TYPED 
♦FXLOUEO BY A CARRIAGE RETURN LINE FEED. THE COMPLETE NUMBER MUST 
♦THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
•CALL: 

* RDOCT ;:READ AN OCTAL NUMBER 

* RETURN HERE :;LOU ORDER BITS ARE W TOP OF THE STACK 

* : .-HIGH ORDER BITS ARE IN $HIOCT 



042374 


011646 




$RDOCT: 


MOV 


(SP).-(SP) 


!! PROVIDE SPACE FOR THE 


042376 


016666 


000004 000002 




MOV 


4(SP).2(SP) 


s; INPUT NUMBER 


042404 


010046 






MOV 


RO.-(SP) 


; ;PUSH RO ON STACK 


042406 


010146 






MOV 


R1,-(SP) 


; :PUSH Rl ON STACK 


042410 


010246 






MOV 


R2.-(SP) 


; ;PUSH R2 ON STACK 


042412 


104412 




U: 


ROLIN 




: ;READ AN ASCIZ LINE 


042414 


012600 






MOV 


(SP)*,RO 


;;GET ADDRESS OF 1ST CHARACTER 


042416 


010037 


042522 




MOV 


R0.5* 


:;AND SAVE IT 


042422 


005001 






CLR 


Rl 


;;CLEAR DATA WORD 


042424 


005002 






CLR 


R2 




042426 


112046 






MOVB 


(RO)*.-(SP) 


s 5 PICKUP THIS CHARACTER 


042430 


001420 






BEQ 


3* 


;:IF ZERO GET OUT 


042432 


122716 


000060 




CMPB 


#'0.(SP) 


jsMAKE SURE THIS CHARACTER 


042436 


003026 






BGT 


41 


:iIS AN OCTAL DIGIT 


042440 


122716 


000067 




CMPB 


*'7.(SP) 




042444 


002423 






BLT 


4$ 




042446 


006301 






ASL 


Rl 


;;*2 


042450 


006102 






ROL 


R2 




042452 


006301 






ASL 


Rl 


!;^4 


042454 


006102 






ROL 


R2 




042456 


006301 






ASL 


Rl 


!;*8 


042460 


006102 






ROL 


R2 




042462 


042716 


177770 




BIC 


#tC7.CSP) 


s; STRIP THE ASCII JUNK 


042466 


062601 






ADD 


(SP)*,R1 


;;ADD IN THIS DIGIT 


042470 


000756 






BR 


2i 


sjLOOP 


042472 


005726 




3$: 


TST 


(SP)» 


J! CLEAN TERMINATOR FROM STACK 


042474 


010166 


000012 




MOV 


R1.12(SP) 


jjSAVE THE RESULT 


042500 


010237 


042532 




MOV 


R2.IHI0CT 


:!POP STACK INTO R2 


042504 


012602 






MOV 


(SP)*,R2 


042506 


012601 






MOV 


(SP)*.R1 


:!POP STACK INTO Rl 


042510 


012600 






MOV 


CSP)*.RO 


; :POP STACK INTO RO 


042512 


000002 






RTI 




:: RETURN 


042514 


005726 




4»: 


TST 


CSP)» 


;;aEAN PARTIAL FROM STACK 


042516 


105010 




CLR6 


(RO) 


s:SET A TERMINATOR 


042520 


104401 






TYPE 




:!TYPE UP THRU THE BAD CHAR. 


042522 


000000 




5*: 


.WORD 


0 


;;"?" "CR" £ "LF" 
!;TRY AGAIN 


042524 


104401 


001162 




TYPE 


.$QUES 


042530 


000730 






BR 


11 


042532 


000000 




$HIOCT: 


.UORD 


0 


;:HIGH ORDER BITS GO tCRE 



Ji2 
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5498 



042534 
042542 
042550 
042552 
042560 
042560 
042562 
042564 
042570 
042572 
042600 
042602 
042610 
042612 
042616 
042624 
042630 
042632 
042636 
042640 
042642 
042646 
042650 
042654 
042662 
042664 
042672 
042700 
042704 
042710 
042712 
042712 
042716 
042720 
042724 
042726 
042732 
042734 
042742 
042750 
042754 
042760 
042764 
042770 
042772 
042774 
042776 
042777 
043000 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 

000200 
000001 
000100 
000040 



000001 
000001 



042776 

000001 

000100 

000004 
000002 
001166 

001202 

001202 

001204 
000004 

000004 
000002 
177776 
040502 

043000 

001206 

001166 

000004 
000002 
001166 
043000 
042777 
042776 



043000 
042776 



000001 043000 



001206 
001207 

000004 



001166 

042710 
000004 



001170 
000004 



.SBTTL APT COmUNICATIONS ROUTINE 



♦ATYl: MOVB 



IATY3: 

♦ATY4: 
♦ATYC: 



1$: 



2$: 



3$: 



4$: 
5$: 
10» 



II*; 



12$: 



♦MFLG: 
$LFLG: 
JFfLG: 



novB 

BR 
MOVB 

MOV 

MOV 

TSTB 

BEQ 

CMPB 

BNE 

BITB 

BEQ 

MOV 

ADD 

TST 

8^E 

MOV 

TSTB 

BNE 

SUB 

ASR 

MOV 

MOV 

BR 

MOV 

ADO 

MOV 

JSR 

.UORD 



*************************************************** 

*1.»FFLG ;;T0 REPORT FATAL ERROR 

*l.»rFLG !:T0 TYPE A MESSAGE 

♦ATYC 

*1.$FFLG ;;T0 ONLY REPORT FATAL ERROR 



TSTB 
BEQ 
TST 
BEQ 
TST 
BNE 
MOV 
ADO 
INC 
CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
.BYTE 
.BYTE 
.BYTE 
• EVEN 
APTSIZE»200 
APTENV-001 
APTSPOOL-100 
APTCSUP-040 



RO.-(SP) 
Rl.-(SP) 
JMFLG 
5* 

*APTENV,$ENV 
3$ 

#APTSP00L.*ENVM 
3$ 

a4(SP).R0 
#2.4(SP) 
$MSGTYPE 
1* 

RO.*MSGAD 

(RO)* 

2$ 

$MSGAD.RO 
RO 

RO.$MSGLGT 

#4.$MSGTYPE 

5* 

a4(SP),4$ 
#2.4(SP) 
177776, -CSP) 
PC, $ TYPE 
0 

IFFLG 
12* 
*ENV 
12* 

*MSGTYPE 
11* 

a4(SP), ♦FATAL 

#2,4(SP) 

♦MSGTYPE 

*FFLG 

*LFLG 

*MFLG 

(SP)*.R1 

(SP)*,RO 

PC 

0 

0 

0 



PUSH RO ON STACK 

PUSH Rl ON STACK 

SHOULD TYPE A MESSAGE? 

IF NOT: BR 

OPERATING UNDER APT? 

IF mi: BR 

SHOULD SPOOL MESSAGES? 

IF NOT: BR 

GET MESSAGE ADDR. 

; ;BUMP RETURN ADDR. 
SEE IF DONE U/ LAST XMISSION? 
IF NOT: UAIT 
PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 

SUB START OF MESSAGE 
GET MESSAGE LNGTH IN UORDS 
PUT LENGTH IN MAILBOX 
TELL APT TO TAKE MSG. 



;;PUT MSG ADDR IN JSR LINKAGE 
; J BUMP RETURN ADDRESS 
; ;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



SHOULD REPORT FATAL ERROR? 

IF NOT: BR 

RUNNING UNDER APT? 

IF NOT: BR 

FINISHED LAST MESSAGE? 

IF NOT: UAIT 

GET ERROR # 

;;BUMP RETURN AOOR. 

TELL APT TO TAKE ERROR 

CLEAR FATAL FLAG 

CLEAR LOG FLAG 

CLEAR MESSAGE FLAG 

POP STACK INTO Rl 

POP STACK INTO RO 
! RETURN 
sMESSG. FLAG 
;LOG FLAG 
; FATAL FLAG 



K12 
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.SBTTL TRAP DECODER 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THF "TRAP- INSTRUCTION 
*MC USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT UILL 
*G0 TO THAT ROUTINE. 



043002 


010046 




♦TRAP: MOV 


RO.-(SP) 


iSAVE RO 


043004 


016600 


000002 


MOV 


2(SP).R0 


:GET TRAP ADDRESS 


043010 


005740 




TST 


-(RO) 


; BACKUP BY 2 


043012 


111000 




MOVB 


(RO).RO 


:GET RIGHT BYTE OF TRAP 


043014 


006300 




ASL 


RO 


jPOSITIW FOR INDEXING 


043016 


016000 


043036 


MOV 


*TRPAD(RO).RO 


{INDEX TO TABLE 


043022 


000200 




RTS 


RO 


;G0 TO ROUTINE 



:;THIS IS USE TO HANDLE ThE "GETPRI" MACRO 



043024 011646 

043026 016666 000004 

043034 000002 



043036 
043040 
043042 
043044 
043046 
043050 
043052 



043056 
043060 
043062 
043064 

5501 

5502 043066 

5503 043070 

5504 043072 

5505 043074 



043024 
040502 
041332 
041306 
041346 
041036 
041534 



043054 041660 



041610 
042072 
042222 
042374 

043076 
043740 
044046 
055746 



000002 



$TRAP2: MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP).2(SP) 



MOVE THE PC DOWN 
MOVE THE PSU DOWN 
RESTORE THE PSU 



.SBTTL TRAP TABLE 



i*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
i*BY THE "TRAP" INSTRUCTION. 



♦TRPAD: 



ROUTINE 

.UORD 

♦TYPE 

♦TYPOC 

♦TYPOS 

♦TYPON 

♦TYPDS 

♦TYPBN 



nRAP2 
CALL'TYPE 
CALL'TYPOC 
CALL-TYPOS 
CALL=TYPON 
CALL«TYPOS 
CALL»TYPBN 



TRAP*1(104401) 
TRAP*2( 104402) 
TRAP ♦3(104403) 
TRAP*4( 104404) 
TRAP* 5C 104405) 
TRAP ♦6C 104406) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
TYPE BINARY (ASCII) NUMBER 



♦GTSUR j;CALL-GTSl« TRAP* 7(104407) GET SOFT- SWR SETTING 



$CKSl« 
♦RDCHR 
♦ROLIN 
♦RDOCT 



CALL-CKSW? 
CALL-RDCHR 
CALL-RDLIN 
CALL-ROOCT 



IHSim t:CALL-I$SUR 

TUNAME ; ;CALL*T$NAME 

A$$MAIL ssCALL-AJMAIL 

IOP$$TR !:CALL='IOP*TR 



TRAP*10( 104410) TEST FOR CHANGE IN SOFT-SWR 
TRAP*11(104411) TTY TYPEIN CHARACTER ROUTINE 
TRAP*12(104412) TTY TYPEIN STRING ROUTINE 
TRAP* 13(104413) READ AN OCTAL NUMBER FROM TTY 

TRAP*14( 104414) GET INITIAL SWITCH OPTIONS 
TRAP* 15(104415) PRINT TEST NUMBER AND TITLE 
TRAP* 16(104416) UPDATE ARBITERS APT MAIL-BOX 
TRAP*17(104417) lOP INTERRUPT HANDLER 



KXJU-CA F'JNC' 
TRAP TABLE 



5507 

5506 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 



iONAL TEST 



043076 
043076 
043102 
043104 
043112 
043114 
043122 
043124 
043130 
043132 



043134 
043142 
043150 

043152 
043202 
043232 
043265 
043330 
043373 
043452 
043514 
043566 
043621 
043667 
043736 



012737 
112737 
000002 

200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
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****************************************************************************** 

ROl/TINE TO CHECK OPERATING MODE AND ADJUST SET-UP ACCORDINGLY. 
IF STAND-ALONE. DISPLAY SWITCH OPTIONS AND GET INITIAL SUR. 



IIISUR: 



005737 


000042 




TST 


3#42 


001017 






BNE 


7* 


123727 


001206 


000001 


CMPB 


*ENV.#APTENV 


001410 






BEQ 


6$ 


023727 


050746 


000001 


CMP 


a#IOPCNT.#l 


003012 






BGT 


8$ 


104401 


043152 




TYPE 


.SUROPT 


104407 






GTSUR 




000406 






BR 


8$ 



BR IF CHAINED UNDER XXOP/ACT. 

BR IF RUtWING IN APT MODE. 
ARE THERE MULTIPLE UNITS? 
BR IF MORE THAN ONE UNIT 
DISPLAY SUPPORTED SWITCHES. 
GET INITIAL SWITCH SETTING 



:FXC 



000370 
000001 



123 
055 
040 
040 
040 
040 
040 
040 
040 
040 
040 
000 



001342 
001134 



127 
055 
061 
061 
061 
061 
061 
061 
060 
060 
060 



JQOLY FOR APT MODE DOUBLED FROM 62. TO 248. TO DECREASE CHANCE OF TIMEOUT 
ERROR WHILE APT IS MONITORING. JEANELL CUNNINGHAM. 30 MAY. 1984. 



6i 

7* 
81 



SWROPT: 



MOV 

MOVB 

RTI 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
•ASCII 
.ASCIZ 
.EVEN 



#248. .$QDLY 
«1 , «AUTOB 



<CRLF>'SWR 
<CRLF>'--- 
<CRLF>' 15 
<CRLF>' 
<CRLF>' 
<CRLF>' 
<CRLF>' 
<CRLF>' 
<CRLF>' 
<CRLF>' 
<CRLF>' 07 
<CRLF> 



APT MODE SET Q DELAY FOR 40 SECONDS. 
APT OR CHAINED - SET AUTO-MODE FLAG. 
RETURN. 



OCTAL FUNCTION' 



14 

13 
12 
11 
10 
09 
08 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 



HALT ON ERROR' 
INHIBIT ERROR SUMMARY' 
INHIBIT ERROR REPORTS' 
lOP ID# 15 KNOWN GOOD FOR TESTING- 
TEST STAND ALONE lOP' 
ENABLE EXTENDED rCMORY TESTS' 
LOOP ON ERROR' 
LOOP ON TEST IN SWR<6:0>' 
INHIBIT TEST NUMBER/TITLE' 



KXJll-CA FUNCTIONAL 
TRAP TABLE 



TEST 
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5543 






5544 






5545 






5546 






5547 






5548 






5549 






5550 043740 


004737 


037542 


5551 043744 


104416 




5552 043746 


042777 


004000 


5553 043754 


052777 


002000 


5554 043762 


032777 


000200 


5555 043770 


001023 




5556 043772 


113727 


001102 


5557 043776 


000000 




5558 044000 


104401 


044006 


044004 


000404 





044016 

5559 044016 

5560 044022 
5561 

5562 044026 

5563 044034 

5564 044040 

5565 044044 
5566 

5567 
5568 
5569 
5570 

5571 044046 

5572 044046 

5573 044054 

5574 044056 

5575 044064 
5576 

5577 
5578 

5579 044066 

5580 044072 

5581 044076 

5582 044100 
5583 

5584 044104 

5585 044110 

5586 044114 

5587 044120 

5588 044122 

5589 044126 

5590 044132 

5591 044136 

5592 044142 
5593 

5594 
5595 
5596 



113746 
104403 

017667 
104401 
062716 
000002 



032777 
001514 
123727 
001110 



013705 
042705 
000305 
050537 

012705 
012704 
005037 
112403 
042703 
060337 
106337 
005537 
077512 



001102 
000402 

000000 
000000 
000002 



000340 
001206 



177524 
177417 

001172 

000020 
001166 
044310 

177400 
044310 
044310 
044310 



*********************************************************************** 

ROUTINE TO PRIflT TEST NUMBER AND NAME. 
ALSO. SETS TEST NUMBER IN CPU LEOS. 
IF SUR<7> = 1. DON'T PRINT ANYTHING. 



CALL: T$NAME. TXT ADDRESS 
TNLEDS 



135340 
135332 
135150 



T^iNAME: CALL 
A»nAIL 

BIC 
BIS 
BIT 
6NE 
MOVB 

1$: .UORO 
TYPE 
BR 
30069*: 

30068$: 

MOVB 
TYPOS 



«6ITll.a*CSR 
«IT10.a$CSR 
«IT7.aSUR 
4* 

♦TSTNM.CPO* 
0 

.30069* 
30068* 
.ASCIZ 



PUT CURRENT TEST NUMBER IN LEDS. 
UPDATE ARBITERS COPY OF *MAIL. 
aEAR RESET FLAG. 
SET TRAP ON Q-BUS RESET ENABLE. 



;FX8X 
:FXBJC 



BR IF TITLES SUPPRESSED... 
OTHERWISE , SAVE THE NUMBER. 
.. .HERE. 

;TYPE ASCIZ STRING 
jGET OVER THE ASCIZ 

<CRLF>/TEST / 



000002 



3*: 
4»: 



MOV 
TYPE 
ADD 
RTI 



*TSTNM.-(SP) 
.2!ULZ 

a(SP).2(PC) 
.0 

#2.(SP) 



...AND NUMBER. 

SET TITLE ADDRESS. 
...AND TYPE IT TOO. 

ADJUST RETURN PC. 
...AND RETURN 



ROUTINE TO COPY SLAVE MAILBOX UP-LINE TO THE ARBITER. 
BYPASS IF SBC IS NOT A SLAVE (ID 1 OR 0) OR NOT APT MODE. 



135264 
000001 



A$*MAIL: 



BIT 
BEQ 
CMPB 
BNE 



»<16*BIT4>.a$TCID ! IF ID 0 OR 1.. 



..DON'T BOTHER. :FX9JC 

IF NOT RUNNING UNDER APT... ;FX9JC 

...DITTO. ;FX9JC 

NOW COMPUTE A CHECKSUM ON THE MAILBOX. iFX9JC 



8* 

♦ENV.MPTENV 
8* 



1*: 



MOV 
BIC 
SUA6 
BIS 

MOV 
MOV 
CLR 
MOVB 
BIC 
ADO 
ASLB 
ADC 
SOB 



a«K2CSRC.R5 

*tC360.R5 

R5 

R5.*TESTN 

#16. .R5 
«*MAIL.R4 

CHKSUM 

CR4)*,R3 

*tC377,R3 

R3. CHKSUM 

CHKSUM 

CHKSUM 

R5.1« 



GET THE lOP ID NUMBER 
MASK OFF OTHER BITS 
SWAP BYTES 

PUT lOP ID CODE IN MAIL BOX SO THAT UE KNOW 
UHICH lOP IS REPORTING THE ERROR 

BYTE COUNT IN R5. 

STARTING ADDRESS IN R4. 

aEAR ACCUMULATOR FOR CHECKSUM. 

GET A BYTE IN R3. 

STRIP OFF HIGH BYTE IN R3. 

OPERATE ON THE BYTE. 



LOOP UNTIL DONE. 



FX9JC 
FX9JC 
FX9JC 
FX9JC 
jFX9JC 
SFX9JC 
{FX9JC 
sFX9JC 
;FX9JC 



Routine has been modified to send 15 -il-s if Msit constant 
expired and "tZ" was not echoed from arbiter or if "NACK" has 
been received. After the third not echoed "tZ" the program still 
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• 




1 n a HO 1 u xoop . 












3377 u'mi'm 


rtl 31X7 
Ule r 3 r 






nuv 




30vU W*13i; 


A1 






nuv 




30U1 U*>^130 




AAA71 A 
( X* 


9AOi . 






3oU£ v'MHOc 


UXc r v/3 


1 77777 
Xf 1 1 1 1 


xux V : 


MOV 
nuv 


ai 77777 
vX 1 1 1 1 i t nJ 




1rt*;777 
XV7 III 


XO^ f 7£ 


994 • 


1 O 1 D 


Or? 1 1\3 


VH»X ft 


XUv^vj 








1(134 
XV£ Y 




n77«»A4 






OUD 


RS 994 


30v0 V*HfX lO 


rtrt«;777 






UCw 


rNT7 




(V)1 

\A/X 








9004 


044^ All 


000777 










jOvy VHHCvO 


1 1 77ftT 
XX 1 ivO 




1091 • 


HOUR 
riuvD 


Of y 1 F\D t no 




Xev Jc > 


<VW>^9 




PMPR 


R'^ *'^9 


1 nAA'H f. 


WX 








22$ 


30Xc vH*»ccv 


019704 
uxc » v» 


001 1f«A 


• 


MOV 

f lUV 






01970«i 

vXC tSJJ 


000090 




MOV 


dl6 R5 


^wX"v V*V"?CJV 


1 19416 

XXCrXw 




At- 


HOUR 






004737 


040714 




CALL 


4TYPEC 

Till Lb 




077504 








R5 44 


^17 044940 


113716 


044310 






CHKSUM fSP) 


^61 A 044944 




040714 




CALL 


4TYPEC 

T 1 ■ r Lw 




005726 






TST 


fSP)* 

V. Jr y ^ 


S690 044959 


105777 

XVJ Iff 


134666 




TSTB 


SI4TKS 


^691 044956 


100375 






RPt 


5$ 


5699 044960 


017705 

VX ' ' 


134662 


6t • 


HOV 


a$TKB R5 




120597 


000006 

V WWW 




CMPB 


OS dACK 


5624 044270 


001404 






BEQ 


7$ 






000025 




CMPB 


R5 4NACK 


5626 044276 


001725 






BEQ 


24 


5627 044300 


000764 






BR 




5626 044302 


005037 


001166 


7*: 


CLR 


IMSGTYPE 


5629 












5630 044306 


000002 




8»: 


RTI 




5631 












5632 044310 


000000 




CHKSUM: 


.WORD 


0 


5633 044312 


000000 




CNTZ: 


.UORO 


0 
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KXTFXO 17-Sep 84 

COUNTER FOR 15 "tZ-'S ;FXO 

SLAVE N APT MMTE -- PUSH... ;FX9JC 

...AH) SEM) <tZ>. ;FX9JC 

WAIT CONSTANT FOR "tZ" ;FXD 

WAIT FOR ARB TO ECHO <tZ> jFXAJC 

•FXAJC 

WAIT UNTIL DELAY EXPIRED IfxO 

DECREMENT "tZ" COUNTER ;FXD 

IF NOT 15 TIMES. SEND ONE MORE jFXD 

OTHERWISE STAY IN WAIT FOREVER jFXO 

GET BYTE IN R3. j FXAJC 

WAS IT THE <tZ>? ;FXAJC 

NO. WAIT FOR IT. ;FXAX 

!FX9JC 
;FX9JC 

GET A BYTE. . . sFX9JC 

. . . SEND IT . . . :FX9JC 

... ETC. SFX9JC 

THEN PUSH CHECKSUM ... SFX9JC 

... AND SEND IT. 5FX9JC 

FIX STACK... ;FX9JC 

WAIT FOR CHARACTER TO COME BACK. sFX9JC 

;FX9JC 

GET THE CHARACTER IN R5. ;FX9JC 

WAS TRANSFER CORRECT? :FX9JC 

YES EXIT •FX9JC 

DID 'arbiter SEND NACK? iFX9JC 

YES. TRY AGAIN. ;FX9JC 

KEEP LOOKING FOR ACK OR NACK. {FX9JC 
SAY "ARBITER'S MAILBOX HAS BEEN ... jFX9JC 

... UPDATED" ;FX9JC 

... AND WE'RE DONE. :FX9JC 



:COUNTER FOR "tZ"'S jFXD 



B13 
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5635 



044314 
044314 
044316 
044322 
044324 
044332 
044336 
044342 
044350 
044356 
044362 

044364 
044372 
044400 
044404 
044410 
044412 
044416 
044422 
044426 
044432 
044434 
044440 
044442 
044444 
044452 

044500 
044500 
044504 
044504 
044512 
044514 
044522 
044526 
044527 
044530 
044532 
044536 
044540 
044542 
044544 
044552 
044554 



104410 

105237 
001775 
013777 
005237 
011637 
162737 
117737 
021627 
101046 

016637 
162737 
104401 
013746 
104402 
104401 
162716 
011637 
013746 
104402 
104401 
022626 
000420 
200 
040 



004737 

122737 
001007 
113737 
004737 
000 
000 
000777 
005777 
100002 
000000 
104410 
052777 
001402 
013716 



001103 

001102 
001112 
001116 
000002 
134542 
001002 



000004 
000002 
044444 
001116 

044452 
000004 
001116 
001116 

001163 



120 
040 



044630 

000001 

001114 
042552 

134402 

001000 
001110 
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.SBTTL ERROR HANDLER ROUTINE 

•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
♦SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AN0 GO TO ERHAN ON ERROR 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTIfC ARE: 
♦SU15-1 HALT ON ERROR 

*SU09'1 LOOP ON ERROR 

♦CALL 

♦ ERROR N J ;ERR0R-EMT AND N-ERROR ITEM NUMBER 



134610 



001116 
001114 



001116 
001116 



103 
125 



001206 
044526 



lERROR: 
7i: 



CKSUR 

INCB tERFLG 

BEQ 7$ 

MOV $TSTNM.aOISPLAY 

INC $ERTTL 

MOV (SP).$ERRPC 

SUB #2.*ERRPC 

MOVB a$ERRPC.*ITEMB 

CMP (SP),#1002 

BHI 12* 



TEST FOR CHANGE IN SOFT-SUR 

SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

INC THE ERROR COUNT 

GET ADDRESS OF ERROR INSTRUCTION 



! PROCESS UNEXPECTED TRAP OR 



10*: 
11*: 

12*: 

20*: 



21*: 

22*: 
2*: 



134366 3*: 



MOV 
SUB 
TYPE 
MOV 
TYPOC 
TYPE 
SUB 
MOV 
MOV 
TYPOC 
TYPE 
CMP 
BR 

.ASCIZ 
.ASCIZ 
.EVEN 

JSR 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

CKSUR 

BIT 

BEQ 

MOV 



4(SP).*ERRPC 
#2.*ERRPC 
.10* 

*ERRPC.-(SP) 

.11* 
*4,(SP) 
(SP).»ERRPC 
»ERRPC.-(SP) 

.*CRLF 

(SP>.(SP)* 

20* 

<200>'PC« ' 
' UNEXPECTED 



PC. ERHAN 

#APTENV,*ENV 
2* 

♦ITEMS. 21* 

PC.*ATY4 

0 

0 

22* 

asuR 

3* 



#6IT09,8SWR 
4* 

*LPERR.CSP) 



STRIP AND SAVE THE ERROR ITEM CODE 
IF RETURN PC LESS THAN 1002 
ERROR IS ILLEGAL TRAP 
INTERRUPT 

GET PC AT TIME OF FALSE TRAP 
AD^T PC 
TYPE HEADER 

SAVE *ERRPC FOR TYPEOUT 
GO TYPE -OCTAL ASCIICALL DIGITS) 

sGET FALSE TRAP VECTOR ADDR 

sSAVE *ERRPC FOR TYPEOUT 
sGO TYPE- -OCTAL ASCIICALL DIGITS) 

{POP FALSE TRAP VECTOR PC&ADDR 



TRAP TO 



t sGO TO USER ERROR ROUTINE 

jRUWING IN APT MODE 
; NO, SKIP APT ERROR REPORT 
iSET ITEM NUMBER AS ERROR NUMBER 
J J REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SUR 

LOOP ON ERROR SWITCH SET? 

BR IF NO 

FUDGE RETURN FOR LOOPING 



C15 

KXJll-CA FUNCTIONAL TEST 
ERROR HANDLER ROUTINE 
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5636 

5637 

563^ 

563!* 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 



044560 
044564 
044566 
044572 
044572 
044600 
044602 
044604 
044604 



044530 



044606 
044612 

044614 
044622 
044624 
044626 



005737 
001402 
013716 

022737 
001001 
000000 

000002 



044606 
044530 
000426 

044606 
017746 
000005 

012777 
104416 
000777 
000741 



001160 
001160 
040116 



000042 



41: 



51: 



61: 



TST 
BEQ 
MOV 

CMP 

B^€ 

HALT 
RTI 



♦ESCAPE 
5» 

♦ESCAPE. (SP) 

^♦ENDA0.aM2 
6i 



; CHECK FOR AN ESCAPE ADDRESS 
:8R IF NONE 

.-FUDGE RETURN ADDRESS FOR ESCAPE 

:ACT-11 AUTQ-ACCEPT? 
: BRANCH IF NO 

;YES 

;;RETURN 



/////////////////// OVERLAY PATCH \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

PATCH lERROR TO UPDATE ARBITERS MAIL -BOX IF NECESSARY 
BEFORE TAKING THE APT-ERROR-STALL. 



134502 
002000 



2221: 



134472 



SVPC='. 

.=22* 

BR 

.'SVPC 

MOV 

RESET 

MOV 
AfMAIL 
BR 
BR 



222$ 

a^CSR.-(SP) 
#2000.9$CSR 



I BACK UP TO ThE "APT -ERROR -ST ALL". 
:...AND CHANGE IT. 



SAVE PRIMARY CSR (FOR DEBUG)... 
...AM) RESET TO ENSURE THERE AREN'T.. 
...ANY Q-BUS INTERRUPTS LEFT HANGING. 

RE-ARM TRAP ON Q-BUS RESET. 

UPDATE ARBITERS ♦MAII 

...AND STALL HERE !! 



5FX8JC 



013 

KXJii CA FUNCTIONAL TEST 
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5654 
5655 
5656 
5657 
5658 
5659 

5660 044630 010046 

5661 044632 113700 

5662 044636 006300 

5663 044640 005260 

5664 044644 042737 

5665 044652 032777 

5666 044660 001037 
5667 

5668 044662 005046 

5669 044664 113716 

5670 044670 104401 

5671 044700 113746 

5672 044704 104401 

5673 044714 013746 

5674 044720 104401 

5675 044726 104401 

5676 044732 005737 

5677 044736 001402 

5678 044740 104401 

5679 044742 000000 

5680 044744 104401 

5681 044746 000000 

5682 044750 004737 

5683 044752 000000 

5684 044754 104401 
5685 

5686 044760 012600 

5687 044762 000207 
5688 

5689 044764 200 

5690 044774 040 

5691 045006 040 
5692 



001114 

051034 
100000 
020000 



001114 
044764 
001102 
044774 
001116 
045006 
001163 
044742 



001163 



105 
111 
101 
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ERROR SIGNATURE HANDLER. 

LOG THE NUMBER OF OCCURENCES OF EACH ERROR IN "ELOG". 

IF SUR<13>='0. PRINT A COWON HEADER AND A BASIC ERROR MESSAGE 

AND FINISH UP IN ONE OF SEVERAL SIGNATURE FORMAT SUBROUTINES. 



001112 
134260 



104403 
104403 
104402 



ERHAN: 


MOV 




MOVB 




ASL 




INC 




BIC 




BIT 




BNE 




CLR 




MOVB 


1*: 


TYPE 




MOVB 




TYPE 




MOV 




TYPE 




TYPE 




TST 




BEQ 




TYPE 


EMPRE: 


0 




TYPE 


EMAOR: 


0 




CALL 


ESAOR: 


0 




TYPE 



122 
116 
124 



ERXIT: 



EHl 
EH2 
EH3 



MOV 
RTS 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



RO.-(SP) 

♦ITEfB.RO 

RO 

ELOGCRO) 
fl6IT15.*ERTTL 
9BIT13,aSUR 
ERXIT 



SAVE RO. 

GET ERROR NUMBER... 
...SHIFT UP TO UORD OFFSET.. 
. . .AND TALLY THIS ERROR. 
KEEP TOTAL ERROR COUNT POS. 
REPORTS INHIBITED ?? 
BR IF SO. 



-CSP) 

$ITEfe.CSP) jPUSH ERROR #. 
,EH1 , TYPOS .3!M-Z : PRINT ERROR NUMBER 
*TSTNM,-(SP) ;PUSH TEST * 
,EH2 , TYPOS ,2!ULZ s PRINT TEST NUMBER 



$ERRPC.-(SP) 
.EH3 .TYPOC 
,*CRLF 
EMPRE 
.♦6 



aCPO* 

.♦CRLF 

(SP)*.RO 
PC 

<CRLF>/ERROR / 
/ IN TEST / 
/ AT PC / 



PUSH PC 
.•PRINT PC. 



PRINT ERROR PREFIX (IF ANY).. 
. . .THE BASIC ERROR MESSAGE. . . 
...AND THE FORMATTED SIGNATURE 



RESTORE... 

...AND RETURN TO JERROR. 



bl5 

KXJll-CA FUNCTIONAL TEST 
ERROR HANDLER ROUTINE 

5694 
5695 
56% 
5697 
5698 
5699 

5700 045016 032777 040000 

5701 045024 001051 

5702 045026 005737 001112 

5703 045032 001446 
5704 

5705 045034 104401 045152 

5706 045040 012700 051034 

5707 045044 012701 000225 

5708 045050 005710 

5709 045052 001434 

5710 045054 011046 

5711 045056 010002 

5712 045060 162702 051034 

5713 045064 006202 

5714 045066 052702 104000 

5715 045072 012703 002456 

5716 045076 022302 

5717 045100 001376 

5718 045102 005743 

5719 045104 010346 

5720 045106 042702 104000 

5721 045112 010246 
5722 

5723 045114 104401 045203 

5724 045124 104401 046131 

5725 045132 104401 046131 

5726 045140 104401 001163 

5727 045144 005720 

5728 045146 077140 

5729 045150 000207 
5730 

5731 045152 200 Oil 

5732 045154 105 122 
5733 

5734 045203 Oil 040 
5735 
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SUBROUTINE TO PRINT AN END PASS ERROR SUMMARY. 
SUPPRESSED IF SUR<14> = 1 OR NO ERRORS LOGGED. 



DISPLAY PC. ERROR NUMBER. AND THE NUMBER OF OCCURRENCES. 



134114 


ESUMRY: 


BIT 


06IT14.a5UR 








BNE 


4$ 


; DON'T IF SUPPRESSED... 






TST 


$ERTTL 








BEQ 


4$ 


:...0R IF THERE AREN'T ANY ERRORS 






TYPE 


.ESUMl 


: PRINT HEADING. 






MOV 


«EL0G.R0 








MOV 


«eL0GN.Rl 






11: 


TST 


CRO) 


{ ERROR N HAPPEN ?? 






BEQ 


3* 


: BR IF NOT 






nuv 


fDf\'\ fQ.D'\ 


. Di ICU Ml MDCD nC UADDCklTlt^C 

• ruon NUnotK Ur nMrrtNlNbb. 






MOV 


R0.R2 


s ERROR LOC... 






SUB 


#EL0G.R2 


- BASE ... 






ASR 


R2 


/ 2 = ERROR NUMBER. 






BIS 


«ERR0R,R2 


: MAKE <EMT*N>. 






MOV 


*TRAPE.R3 






2(: 


CMP 


(R3)*.R2 


! FIND THE ERROR CALL. . . 






BNE 


2i 








TQT 




. 0 - poono or 
.... c - cKKUH rL. 






MOV 


R3.-(SP) 


: PUSH ERROR PC. 






BIC 


0ERR0R.R2 








MOV 


R2.-(SP) 


; PUSH ERROR NUMBER. 


104403 




TYPE 


.TAB09 .TYPOS 


.3!ULZ : PRINT ERROR NUMBER... 


104402 




TYPE 


.SPAC4 .TYPOC 


ERROR PC... 


104405 




TYPE 


.SPAC4 .TYPOS 


;...AND NUMBER OF HAPPENINGS. 






TYPE 


.♦CRLF 






3$: 


TST 


(RO)* 








SOB 


Rl.ll 






4(: 


RETURN 






ESUMl: 


.ASCII 


<CRLF><11> 




122 




.ASCIZ 


/ERROR PC 


TIMES/<CRLF> 








: NNN PPPPPP N 


000 


TAB09: 


.ASCIZ 


<11><40> 








.EVEN 
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5737 








5738 








5739 








5740 045206 








5741 045206 


000207 






5742 








5743 045210 


104401 


001163 




5744 045214 


004737 


045230 




5745 045220 


000442 






5746 045222 


162737 


000002 


001120 


5747 045230 


013746 


001120 




5748 045234 


104401 


045713 


104402 


5749 045242 


000207 






5750 








5751 045244 


104401 


001163 




5752 045250 


004737 


045256 




5753 045254 


000424 






5754 045256 


004737 


037436 




5755 045262 


013746 


037540 




5756 045266 


013746 


037536 




5757 045272 


005766 


000002 




5758 045276 


100003 






5759 045300 


062766 


100000 


000002 


5760 045306 


006116 






5761 045310 


104401 


045704 




5762 045314 


104403 


000403 




5763 045320 


104403 


000405 




5764 045324 


000207 






5765 045326 


013746 


001126 




5766 045332 


013746 


001124 




5767 045336 


104401 


001163 




5768 045342 


104401 


045725 


104402 


5769 045350 


104401 


045735 


104402 


5770 045356 


000207 






5771 045360 








5772 045360 


013746 


001126 




5773 045364 


013746 


001122 




5774 045370 


013746 


001124 




5775 045374 


013746 


001120 




5776 045400 


104401 


001163 




5777 045404 


104401 


045747 


104402 


5778 045412 


104401 


046136 


104402 


5779 045420 


104401 


001163 




5780 045424 


104401 


045767 


104402 


5781 045432 


104401 


046136 


104402 


5782 045440 


000207 




5783 








5784 045442 


013746 


001120 




5785 045446 


013746 


001122 




5786 045452 


104403 


000403 




5787 045456 


• Ail ^ /\ 4 

104401 


045006 


104402 


5788 045464 


000207 




5789 








5790 045466 


013746 


001126 




5791 045472 


013746 


001124 




5792 045476 


104401 


001163 




5793 045502 


104401 


046007 


104405 
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SUBROUTINES TO ASSEMBLE AND PRINT VARiaiS ERROR SIGNATURES. 



EFl: 
NOSIG: 

EF2: 



RETURN 



TYPE 
CALL 
BR 

LA16M2: SUB 
LA16: MOV 
TYPE 
RETURN 



EF3: 
GA22: 

1*: 
EF4: 



EF5: 
EF6: 



EF7: 



EF8: 



TYPE 

CALL 

BR 

CALL 

MOV 

MOV 

TST 

BPL 

ADO 

ROL 

TYPE 

TYPOS 

TYPOS 

RETURN 

MOV 

MOV 

TYPE 

TYPE 

TYPE 

RETURN 

MOV 

MOV 

MOV 

MOV 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

RETURN 

MOV 

MOV 

TYPOS 

TYPE 

RETURN 

MOV 
MOV 
TYPE 
TYPE 



, »CRLF 

LA16 

EF4 

#2.*GDADR 
*GDA0R,-CSP) 
.ADDRS .TYPOC 



.♦CRLF 
GA22 
EF4 
VA2GA 

GALO. CSP) 
GAHI.-CSP) 
2(SP) 
li 

«6IT15,2(SP) 

(SP) 

.GADORS 

.3!WLZ 

.5!ULZ 

♦BOOAT.-(SP) 
♦GDOAT.-(SP) 
. *CRLF 

.EXPO , TYPOC 
,RECO .TYPOC 



$BODAT. 

IBDADR. 

^GOOAT. 

^GDADR. 

.*CRLF 

.SAOR . 

.COMMA 

.*CRLF 

.DAOR . 

.COMMA 



-CSP) 
-CSP) 
-CSP) 
-(SP) 

TYPOC 
, TYPOC 

TYPOC 
.TYPOC 



$GOAOR.-(SP) 
$6DADR.-(SP) 
.3!ULZ 
.EH3 .TYPOC 



*BOOAT.-(SP) 
JGDOAT.-CSP) 
. $CRLF 

.lEXPD .TYPOS 



SOME HAVE NO SIOWTURE AT ALL. 

A 16 BIT ADDRESS UITH GOOD/BAD DATA 



FOR POST INCR ADDRESSES. 
A 16 BIT (LOCAL) ADDRESS. 



i A 22 BIT ADDRESS UITH GOOD/BAD DATA 



: CONVERT FROM A 16 BTT VIRTUAL (Rl). 



ADDR<15> SET ?? 
SKIP IF NOT. "C" - 0... 
...ELSE CLEAR IT. "C" = 1. 



; PRINT A0DR<21:15> 
; PRINT A0DR<14:00> 



; GOOD/BAD DATA. 



; UNUSED. 

} SRC-AOOR-OATA/OST-AOOR-DATA. 



: SOURCE ADDRESS. 
;...AND DATA. 

! OEST ADDRESS... 
;...AND DATA. 



s BAD TRAP -- PC... 
S...AND VECTOR, 
s PRINT VECTOR... 
;...AN& PC AT TIME OF TRAP. 



} INTERRUPT SEQUENCE INCOMPLETE. 



{ EXPECTED THIS MANY. . . 



Gi5 
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5794 045510 


104401 


045735 


104405 




TYPE 


5795 045516 


000207 








RETURN 


5796 










MOV 


5797 045520 


013746 


001122 




EF9: 


5796 045524 


013746 


001120 






MOV 


5799 045530 


104401 


001163 






TYPE 


5800 045534 


104401 


046032 


104403 




TYPE 


5801 045544 


104401 


045735 


104403 




TYPE 


5802 045554 
5803 


000207 








RETURN 












5804 045556 


013746 


001126 




EFIO: 


MOV 


5805 045562 


013746 


001124 






MOV 


5806 045566 


104401 


001163 






TYPE 


5807 045572 


104401 


046051 


104405 




TYPE 


5808 045600 


104401 


045735 


104405 




TYPE 


5809 045606 


A A. A A A 

000207 








RETURN 


5810 045610 


013746 


001132 




EFll: 


MOV 


5811 045614 


013746 


001130 






rx)V 


5812 045620 


104401 


001163 






TYPE 


5813 045624 


104401 


046067 


104403 




TYPE 


5814 045634 


104401 


046075 


104403 




TYPE 


5815 045644 


000207 








RETURN 


5816 












5817 045646 


013746 


001130 




EF12: 


MOV 


5818 045632 


013746 


001126 






MOV 


5819 045656 


104401 


001163 






TYPE 


5820 045662 


104401 


046105 


104403 




T sync 

TYPE 


5821 045672 


104401 


046116 


104403 




TYPE 


5822 045702 


000207 








KETWN 


5823 












5824 








OTTO 

s BITS 


AND PIEl 


5825 












5826 045704 


107 


114 


117 


GAuOkS: 


. ASCII 


5827 045713 


101 


104 


104 


ADORS: 


ft f 

. ASCIZ 


5828 045725 


105 


130 


120 


EXPO: 


. ASCIZ 


5829 045735 


040 


040 


122 


RECD: 


. ASCIZ 


5830 045747 


123 


122 


103 


SAOR: 


. ASCIZ 


5831 045767 


104 


123 


124 


OAOR: 


A O^TT 

. ASCIZ 


5832 046007 


111 


116 


124 


lEXPD; 


.ASCIZ 


5833 046032 


126 


105 


103 


VtXPD: 


. ASCIZ 


5834 046051 


102 


131 


124 


n wuTV% 

BXMTD: 


A O^T^ 

. ASCIZ 


5835 046067 


123 


122 


060 


OSRO; 


. ASCIZ 


sSSO 046073 


040 


U«fO 




UoKl ; 




5837 046105 


123 


122 


060 


OSROA: 


.ASCIZ 


5838 046116 


040 


040 


123 


OSROB: 


.ASCIZ 


5839 046131 


040 


040 




SPAC4: 


.ASCII 


5840 046133 


040 






SPAC2: 


.ASCII 


5841 046134 


040 


000 




SPACE: 


.ASCIZ 


5642 046156 


054 


000 




COMMA: 


.ASCIZ 
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.RECO .TYPOS ;...G0T THIS MANY. 



♦BDADR, (SP) ! INTERRUPT SEQUENCE (VECTOR) ERROR. 

«GDAOR.-(SP) 

.♦CRLF 

.VEXPD .TYPOS ,3!ULZ ; EXPECTED VECTOR... 
.RECO .TYPOS .3!ULZ .RECEIVED VECTOR. 



♦BDOAT.-(SP) ; 7201 OR 8036 BYTES RECEIVED... 

iGOOAT. CSP) :...AND TRANSMITTED. 
, *CRLF 

.BXMTD .TYPDb : SENT THIS MANY... 

.RECD .TYPDS ;...AhD GOT THESE BACK. 

♦BDDAT+4.-CSP) j 7201 EXTERNAL OR SPECIAL STATUS. 

*BD0AT*2,-(SP) 

. *CRLF 

.OSRO .TYPOS ,3!ULZ : OBSERVED SRO... 
.OSRl .TYPOS .3:ULZ S...AND SRI. 



*BDDAT+2.-CSP) ; 7201 MODEM STATUS SRO(B)... 

♦BDDAT.-CSP) S...AND SROCA). 

,*CRLF 

.OSROA .TYPOS ,3;ULZ : OBSERVED SROCA)... 
.OSROB .TYPOS .3!ULZ ;...AND SRO(B). 



:S USED BY THE FORMATTERS. 

/GLOBAL / 

/ADDRESS: / 

/EXP'D: / 

/ RECD: / 

/SRC AODR.DATA: / 

/OST AODR.DATA: / 

/INTERRUPTS EXP'D: / 

/VECTOR EXP'D: / 

/BYTES XMT'O: / 

/SRO: / 

/ SRI: / 

/SROCA): / 

/ SROCB): / 

/ / 

/ / 

/ / 

/./ 



hi 3 
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5844 










5845 








'; BASJ 


5846 










5847 046140 


104 


103 


112 


DCJDM. 


5848 046175 


123 


105 


114 


STF: 


5849 










5850 046217 


125 


116 


105 


UNXT: 


5851 046254 


102 


125 


123 


CSRE: 


5853 








CLKl: 


5854 046303 


102 


125 


123 


5855 046337 


103 


114 


117 


CLK2: 


5856 046405 


103 


114 


117 


CLK3: 


5857 046442 


103 


101 


116 


CLK4: 


5858 








• 

DPRl: 


5859 046500 


102 


125 


123 


5860 046533 


104 


120 


122 


0PR2: 


5861 046566 


124 


111 


115 


DPR3: 


5862 046633 


116 


117 


116 


DPR4: 


5863 046700 


103 


117 


115 


DPR5: 


5864 046771 


116 


117 


040 


0PR6: 


5865 046774 


124 


111 


115 


DPR7: 


5866 047042 


111 


116 


124 


0PR8: 


5867 








.GOD 


5868 047107 


104 


120 


122 


DPR9: 


5869 047144 


101 


122 


102 


DPRIO: 


5870 










5871 








icONSC 


5872 










5873 047211 


130 


115 


124 


SLIX: 


5874 047217 


122 


103 


126 


SLIR: 


5875 047225 


111 


116 


124 


SLI2: 


5876 047265 


111 


116 


124 


SLI3: 


5877 047314 


122 


105 


121 


SLI4: 


5878 047356 


122 


105 


103 


SLI5: 


5879 










PAAJ\ AA^AA^ 

5880 047406 


102 


125 


123 


NECl: 


5881 047455 


070 


060 


060 


NEC2: 


5882 047531 


103 


110 


101 


NECCM: 


5883 


047536 








5884 


047541 








5885 047551 


103 


110 


101 


NECDM: 


VAA^ A A A 

5886 047574 


104 


101 


124 


NEC3: 


5887 047625 


074 


105 


117 


h€C3A: 


5888 


047356 






NEC4» 


5889 047655 


125 


116 


105 


l«C5: 


5890 047721 


115 


117 


104 


KECMM: 


5891 047746 


123 


124 


101 


NEC6: 


5892 050004 


123 


124 


101 


NEC7: 


5893 050040 


123 


124 


101 


NEC8: 


5894 050110 


123 


124 


101 


NEC9: 


3073 OdOlD!) 


123 


124 


101 


NECIO: 


5896 










5897 050232 


102 


125 


123 


PIOl: 


5898 050257 


120 


111 


117 


PI02: 


5899 050311 


120 


111 


117 


PUN: 


5900 


050323 








5901 050326 


116 


117 


124 


PI03: 



Thursday 03-Apr-86 14:11 Page 162 



ERROR MESSAGES. 

.ASCIZ /OCJll BASE INSTRUCTION TESTS/ 

.ASCIZ /SELF-TEST FAILURE/ 

•ASCIZ /UNEXPECTED TRAP THRU VECTOR / 

.ASCIZ /BUS TIME-OUT AT KXCSR / 

.ASCIZ /BUS TIME-OUT AT LINE CLOCK / 

.ASCIZ /CLOCK INTERRUPT NOT MASKED AT LEVEL 6/ 

.ASCIZ /CLOCK INTERRUPT NOT RECEIVED/ 

.ASCIZ /CAN'T DISABLE CLOCK INTERRUPT/ 

.ASCIZ /BUS TIME-CWT AT LOCAL DPR / 

.ASCIZ /DPR LOCAL URITE-READ ERROR/ 

•ASCIZ /TIME-OUT CHOP) ON Q-BUS READ AT DPR / 

.ASCIZ /NON-ZERO DATA RETURNED ON Q-BUS READ/ 

.ASCIZ /COMMAND INTERRUPT (DPRO) DIDN'T HAPPEN (OR DOESN'T UORK)/ 

.ASCII /NO / 

.ASCIZ /TIME-OUT (EOP) ON Q-BUS WRITE TO DPR / 

.ASCIZ /INTERRUPT RECEIVED UITH DPR DISABLED/ 

.ASCIZ /DPRXX INTERRUPT NOT RECEIVED/ 

.ASCIZ /ARBITER WRITE TO DPR CUORO 15) FAILS/ 

: SERIAL LINE ERROR MESSAGES 

.ASCIZ /XMTR / 

ASCIZ /RCVR / 

; ASCIZ /INTERRUPT NOT MASKED AT LEVEL 4/ 

.ASCIZ /INTERRUPT NOT RECEIVED/ 

.ASCIZ /REQUEST STILL ACTIVE AFTER "lACKV 

.ASCIZ /RECEIVED DATA INCORRECT/ 

.ASCIZ \BUS TIME-OUT AT SYNC/ASYNC (OR 18254) \ 

.ASCIZ /800HZ INTERRUPT (8254 TIMER 2) NOT RECEIVED/ 

.ASCIZ /CHAN X (ASYNC) / 

NECC- NECCH»5 

NECM- NECCM^a. 

.ASCIZ /CHAN A (SYNC-DMA) / 

.ASCIZ /DATA TRANSFER INCOMPLETE/ 

.ASCIZ /<EOF-SOLC> NOT RECEIVED/ 

SLI5 ; RECEIVED DATA INCORRECT. 

.ASCIZ \UNEXPECTED EXTERNAL/ERROR INTERRUPTV 

.ASCIZ /MODEM CONTRX ERROR/<CRLF> 

.ASCIZ /STATUS INTERRUPT NOT RECEIVED/ 

.ASCIZ /STATUS WRONG WITH <RTS> SET/ 

.ASCIZ \STATUS WRONG WITH <TT108/2> IN CSRA SET\ 

.ASCIZ /STATUS WRONG WITH <TERM-IN-SERV> IN CSRA SET/ 

.ASCIZ /STATUS WRONG WITH KUL CONTROLS aEAR/ 

.ASCIZ /BUS TIME-OUT AT PIO / 

.ASCIZ /PIO RESET STATE INCORRECT/ 

.ASCIZ /PIO TIMER N / 

PITX« . -3 

.ASCIZ /NOT RUNNING/ 



Ii3 , 
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ERROR HANDLER ROUTINE 



5902 050342 


116 


4 /\C 

105 


4 

126 


PI04: 


. ASCIZ 


/NEVER STOPS/ 




COOT rtlrtTri^ 


111 

111 


llo 








/INTERRUPT NOT 


MASKED AT LEVEL 


5904 050416 


111 


116 


124 


PI06: 


.ASCIZ 


/INTERRUPT NOT 


RECEIVED/ 


5905 050445 


120 


111 


117 


PORTBA: 


.ASCIZ 


/PIO PORT B->A 


/ 


5906 050464 


120 


111 


117 


PORTAB: 


.ASCIZ 


/PIO PORT A->B 


/ 


5907 050503 


104 


101 


124 


PI07: 


.ASCIZ 


/DATA TRANSFER 


INCOMPLETE/ 


5908 


047356 






PI08= 


SLI5 


: DATA INCORRECT. 


5910 










.EVEN 







Jl3 

Kyjll-CA FUNCTIONAL TEST 
BINARY TO ASCII DECIMAL ENCOOtR 

5911 



050554 
050540 
050542 
050546 
050552 
050554 
050560 
050562 
050566 
050572 
050574 
050576 
050600 
050602 
050606 
050612 
050614 
050616 
050620 
050622 
050624 
050626 
050632 

050634 
050636 
050642 
050646 
050650 
050652 
050656 
050660 
050664 
050666 
050672 
050674 
050700 
050702 
050706 
050710 
050714 
050716 

050720 
050726 



012746 
000402 
012746 
012727 
000000 
011637 
010016 
012700 
121027 
001405 
005716 
100003 
005416 
112710 
004537 
023420 
001750 
000144 
000012 
000001 
005726 
012700 
000207 

005200 
112710 
026615 
103404 
105210 
161566 
000771 
022527 
001414 
005737 
001760 
121027 
001003 
113710 
000402 
005037 
000747 
000205 



000000 



MACRO Y05.02 Thursday 03-Apr-86 14:11 Page 164 



.SBTTL BINARY TO ASCII DECIMAL ENCODER 
********************************************************************** 

CONVERT BINARY TO SIX CHARACTER ASCII DECIMAL STRING. 
RANGE: -32768. TO ♦32767. (SIGNED) OR 0 TO 65535. (UNSIGNED). 



000177 

000053 
000177 

050720 

050720 
000177 



000055 
050634 



050720 



000060 
000002 



000002 
000001 
050552 
000060 
050552 
050552 



CALL: MOV NUM.RO 

CALL DECIMAL 



DECIMAL: MOV 
402 

SDECIMAL: MOV 
WV 



LZS: 



1*: 



2$: 
3$: 

4$: 



5* 
6( 
61 



0 
MOV 
MOV 
MOV 
CfVB 
BEQ 
TST 
BPL 
NEG 
MOVB 
JSR 
10000. 
1000. 
100. 
10, 
1. 
TST 
MOV 

RETURN 

INC 
MOVB 
CMP 
BLO 
INCB 
SUB 
BR 
CMP 
BEQ 
TST 
BEQ 
CMPB 
BNE 
MOVB 
402 
CLR 
BR 
RTS 

.BLKB 
.UORD 



*177.-(SP) 

(SP) 
*177,(PC)* 

(SP).8$ 

RO.(SP) 

#8$.R0 

(R0).#177 

1$ 

(SP) 
1$ 

(SP) 

*'-.(R0) 
R5.2* 



(SP)* 



RO 

#'0,(R0) 

2CSP).(R5) 

4* 

(RO) 

(R5).2(SP) 
31 

(R5)*.#l 
6« 

LZS 
2« 

(R0).#'0 
5» 

LZS.(RO) 

LZS 

2i 

R5 

6 

0 



OR SDECIMAL (SIGNED). 

RO POINTS TO STRING ADDRESS ON RETURN. 

UNSIGNED. PUSH A NULL. 



SIGNED. PUSH A * SIGN. 
NULL LEAD O'S. 

SET 1ST CHAR (NULL OR ♦). 

COPY NUMBER TO THE STACK... 
...AND USE RO FOR THE STRING POINTER. 

CHECK SIGN BYTE... 
...AND BR IF tJNSIGNED. 

IS NUMBER POS ?? 

YUP. 

NOPE. MAKE ABS VALUE... 
...AND CHANGE THE SIGN TO (-). 
CONVERT BINARY TO ASCII 
10t4 
10t3 
10t2 
lOtl 
lOtO 

FIX STACK... 

...RETURN POINTER TO CALLER. 



POINT TO NEXT DIGIT. 
J 2... AND SET IT TO 0. 



ACCUMULATE THIS DIGIT. 



LAST DIGIT ?? 
ALL DONE IF SO. 
NO. STILL NULLING ?? 
LOOP IF NOT. 
YES. GOT A 0 ?? 
BR IF NOT (1ST NZ FOUND). 
YES, REPLACE IT... 
...AND SKIP NEXT. 
1ST NON-ZERO, CLEAR LZ SWITCH. 
LOOP FOR 5 DIGITS. 
RETURN. 

STRING BUFFER... 
...PROPERLY TERMINATED. 
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:THE FOLLOWING 


ARE ARBITER PARAMETERS NEEDED BY THE K2 


5914 050730 


OUOOOO 


.MSIZE 


: .WORD 


0 




TOTAL MEMORY SIZE (K WORDS). 






.LSTPG 


: .WORD 


0 




PAGE ADDRESS (PAF) OF LAST IK PAGE... 














,...0R ZERO IF MMU NOT AVAILABLE. 








•LSTPG 






MMU AVAILAK^E FLAG. 




yuww 


.LSTAO: .WORD 


0 




LAST VIRTUAL ADDRESS IN LAST PAGE... 


Q 












. . .OR LAST ADDRESS UNDER 28K (IF NO MMU). 


WWcw 




Ltnon 
.WUKU 


16. 




ADDRESS BUS WIDTH. 16. 18. OR 22. 


cQot n«;n7Art 


www 


TOD 1 IT 


. WUKU 


0 


UNIT UNDER TEST FOR MULTIPLE UNITS 




WUWUv 


l\jr .XX) 


.WUKU 


0 


lOP ID NUMBER 


CQOX fW\7AA 


wwyw 




unon 


0 




1 - KNOWN GOOD lOP PRESENT 


j7C'f vjv 1 *rO 


VAAA/W 


TODrKIT 


unon 

. WUKU 


0 


NUMBER OF lOPS INDICATED BY ARBITER SNIFF ROUTINE 






tUTI TM 


unon 
.WUKU 


0 






jtCI \Jj\J I jc 


www 


1 nui TM 

LUMLJ.n 


unon 

. MUKU 


0 


LOWEST QBUS ADDRESS THAT SHARED MEMORY CAN START AT 




WVVAA/ 


MAXBLK 


.WORD 


0 


MAXIMUM NUMBER OF 8KB BLOCKS OF SHARED MEMORY THAT 














CAN RESIDE ON THE QBUS 




1 77777 


QBE22: 


.WORD 


• 

-1 


ONE INDICATES THAT A 22 BIT QBUS EXERCISER IS 












.RESIDENT IN THE SYSTEM AT ADDRESS 170020 




1 77777 


QBE18: 


.WORD 


• 

1 


ONE INDICATES THAT AN 18 BIT QBUS EXERCISER IS 


5933 










RESIDENT IN THE SYSTEM AT ADDRESS 170000 


5934 050762 


000000 

www 


KDJ*: 


.WORD 


0 


\ 


5935 050764 


000000 


Jll*: 


.WORD 


0 




\ 


5936 050766 


000000 


FllJ: 


.WORD 


0 




>NON ZERO IN ONE OF THESE INDICATES ARBITER CPU TYPE 


5937 050770 


000000 


111*: 


.WORD 


0 




/ 


5938 050772 


000000 


Lll$: 


.WORD 


0 


/ 


5939 050774 




$PATCH 


.BLKW 


20 


AREA FOR PATCHES 



Ll3 



KXJll-CA FUNCTIONAL TEST 
BINARY TO ASCII DECIMAL ENCODER 

5942 
5943 
5944 
5945 
5946 
5947 
5948 

5949 000225 

5950 051034 

5951 051506 051506 
5952 
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EVERY THING BEFORE THIS IS LOADED INTO THE TARGET K2 
NOW ALL THE REST IS THE ARBITERS REMOTE LOADER AND VT 
NEED BE COPIED DOWN TO THE SLAVE UNIT. 

DEFINE A SPACE FOR THE "ERROR LOG". 



NONE OF WHICH 



ELOGN= $EN»1 
EL06: .BLKW 
LASTAO: . 



ELOGN : ERROR LOG CI WORD/ERROR). 

; LAST LOAD IMAoE ADDRESS. 



Mi3 

KXJll-CA FUNCTIONAL TEST 
BINARY TO ASCII OECinAL ENCODER 



5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 

5962 051510 

5963 051514 

5964 051522 

5965 051530 

5966 051536 
5967 

5968 051540 
5969 

5970 051544 

5971 051552 

5972 051556 
5973 

5974 051562 
5975 

5976 051566 

5977 051572 

5978 051574 

5979 051600 

5980 051602 

5981 051606 
5982 

5983 

5984 051612 

5985 

5986 

5987 

5988 

5989 051616 

5990 

5991 

5992 051616 

5993 051624 

5994 051630 

5995 051636 

5996 051640 
5997 

5998 

5999 051642 

6000 051646 

6001 051650 

6002 051656 

6003 051664 

6004 051670 

6005 051672 

6006 051700 

6007 051704 

6008 051710 

6009 051714 

6010 051720 
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THIS STUFF RUNS FIRST TO ESTABLISH WHAT TYPE OF ARBITER CPU IS 
PRESENT AND HOU MUCH MEMORY IS AVAILABLE (IMPORTANT FOR SHARED 
MEMORY TESTS). 

THE FOLLOUING STUFF OVERLAYS THE BUFFER AREA. 
IF THE TEST IS RUN IN THE ARBITER THE FOLLOUING 
STUFF MAY BE OVER WRITTEN 

SETUP THE STACK 

POINTER TO SOFTUARE SWITCH REGISTER 
AHD DISPLAY REGISTER 
STA^DALO^E TEST? 

NOT DOING ST Ah© ALONE lOP; GO TO 
ARBITER SETUP ROUTINES 
DOING STAhCALONE TEST; SKIP OVER THE 
ARBITER STUFF 
PSW - SET KERNEL MODE 
FIND OUT WHAT TYPE OF ARBITER UE ARE 
FIHD OUT HOU MANY KWORDS OF ARBITER 
MEMORY THERE ARE 

FIND OUT HOU MANY AND WHAT TYPE OF lOPS 
ARE IN THE SYSTEM 
IS THERE AT LEAST ONE lOP? 

INFORM OPERATOR THAT NO lOPS WERE FOUND 

ARE THERE Q BUS EXERCISERS? 
GET INFORMATION FOR SHARED MEMORY TESTS 
SUCH AS AMOUNT OF EXISTING h€MORY AND THE 
NUMBER OF ADDRESS BITS SUPPORTED 
NOU SHOW WHAT WHAT lOPS ARE PRESENT 

NOW SYNC UP THE lOP UNIT BEING TESTED WITH THE lOP IDNUMBER WHICH 
IS DETERMINED BY THE SETTING OF THE ID SWITCH ON THE KXJll MODULE 

♦AGAIN: : COMES HERE THE FIRST TIME THROUGH AND AFTER IT HAS TESTED ALL 
;THE lOPS IN THE SYSTEM. 



012706 


001100 




II ARB: 


MOV 


*1100,R6 


012737 


000176 


001140 




MOV 


«176.9#SUR 


012737 


000176 


001142 




MOV 


«176.a«SUR«2 


032777 


004000 


127402 




BIT 


«6IT11.3SWR 


001402 








BEQ 


101 


000137 


056702 






JMP 


REMOTE 


012737 


000340 


177776 


101: 


MOV 


*340,a*P9 










.]<>R 


Pr ARRTTR 


004737 


052574 






JSR 


PC. SIZE 


004737 


053412 






JSR 


PC.SNIFFR 


005737 


001244 






TST 


IDEVM 


001003 








6NE 


11 


104401 


052006 






TYPE 


.NORESP 


000000 








HALT 




004737 


054070 




11: 


JSR 


PC. OBEX 


004737 


054202 






JSR 


PC.SHRMEM 


004737 


055310 






JSR 


PC.SHOSYS 



012737 
012704 
012737 
005714 
001531 



000001 
001256 
000002 



050740 
050742 



MOV 
MOV 
MOV 

TRYNXT: TST 
BEQ 

{YUP 



#1.I0P.UT 

«I00U2.R4 

#2.I0P.ID 

(R4) 

NXT 



013702 


050740 




MOV 


I0P.UT.R2 


006302 






ASL 


R2 : 


016237 


056732 


056730 


MOV 


SLUADR(R2),SLU2 ; 


012737 


160000 


052002 


MOV 


#160000, lOPAOR : 


020427 


001272 




CMP 
BLT 


R4,«IDDU8 ; 


002403 






11 


062737 


015000 


052002 


rjo 


«15000.IOPAOR i 


013701 


050742 


11: 


MOV 


lOP.ID.Rl : 


072127 


000005 




ASH 


«5.R1 ; 


060137 


052002 




ADD 


Rl.IOPADR ; 


032714 


000002 




BIT 


«eiT0i.CR4) ; 


001403 






BEQ 


21 : 



lOP UNDER TEST 

POINT TO FIRST lOP TABLE ENTRY SET UP BY SNIFFR 
FIRST lOP ID NUMBER; 0 AND 1 ARE STANDALONE 
IS THERE AN lOP HERE? 
GO TRY THE NEXT POSITION IF NOT. 



MOVE IT LEFT ONE POSITION 
GET THE CORRECT SLU 
GET BASE ADDRESS OF lOPS 
IS THE lOP ID NUMBER > 7 

YES, SHIFT TO UPPER RANGE 
GET lOP ID NUMBER 
SHIFT IT OVER 

IS lOP IN HIGH RANGE OR LOW RANGE? 
1«L0U 2"HI 



N13 
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6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 



051722 
051730 
051734 
051740 



051742 
051746 
051754 
051760 



051764 
051770 
051774 

052000 
052002 
052004 

052006 

052032 
052036 
052042 
052046 
052052 
052056 
052062 
052070 
052072 
052076 
052102 
052104 
052110 
052114 
052116 
052122 
052124 
052130 
052134 
052136 



052737 
010437 
005737 
001011 



013746 
104401 
104401 
000137 



013700 
005060 
000137 

000000 
000000 
000000 

200 

012706 
005037 
005037 
005037 
005037 
005237 
023737 
003005 
013704 
020427 
001010 
005237 
005737 
001002 
005237 
000635 
062704 
005237 
000640 
200 



002000 052002 

052004 

052000 



050742 

052136 104405 



BIS #2000.I0PADR 

2i: MOV R4. POINT 

TST FRESH 

BNE 3$ 



SAVE R4 IN LOCATION POINT 

IS THIS A NEW LOAD OF THE DIAGNOSTIC? 

BRANCH IF NOT 



ELSE LOAD THE DIAGNOSTIC INTO THE TARGET lOP 



001163 
056702 



052002 
000030 
056770 



116 



117 



001100 
001166 
001170 
001172 
001102 
050740 

050740 050746 

052004 
001310 

052000 
052000 

052000 

000002 
050742 

114 117 





MOV 


lOP.ID.-(SP) 








TYPE 


. LDING. TYPDS 








TYPE 


.$CRLF 








JMP 


REMOTE 






ilF THE DIAOWSTIC HAS ALREADY 


BEEN LOADED INTO ALL lOPS THEN JUST RESTART 


3$: 


MOV 


lOPADR.RO 


:GET ADDRESS OF IQP TO RESUME TESTING 




CLR 


30(R0) 


:URITE TO TPR12 TO KICK IT OFF 




JMP 


LINK 


sLINK UP WITH THE lOP SERIAL LINE 


t 

FRESH: 


.UORD 


0 




ZERO INDICATES THAT ALL lOPS ARE NOT LOADED 


lOPADR: 


.UORD 


0 




HOLD VIRTUAL ADDRESS OF lOP BEING TESTED 


POINT : 


.UORD 


0 




HOLDS DEVICE DESCRIPTOR UORD ADORSS 


NORESP: 


.ASCIZ 


<CRLF>/NO lOPS 


INSTALLED/ 




.EVEN 








fCXTl: 


MOV 


*1100,SP 




SET UP THE STACK 




LLK 










CLR 


$MAIL*2 




CLEAN UP APT MAIL BOX 




CLR 


»MAIL»4 








CLR 


♦TSTNM 




ZERO OUT TEST NUMBER 




INC 


lOP.UT 




lOP UNDEK TEST (NOT ID NUMBER) 




CMP 


lOP.UT.IOPCNT 




IS lOP UT . NUMBER OF lOPS IN SYSTEM? 




B6T 


2i 








MOV 


POINT. R4 




.RETRIEVE VALUE OF DEVICE DESCRIPTOR WORD 




CMP 


R4.«$0DU15 




; DID UE HIT THE TOP? 




BNE 


NXT 






2$: 


INC 


FRESH 




INDICATE THAT ITS NOT A NEW LOAD 




TST 


FRESH 




sDON'T LET IT INCREMENT TO ZERO 




BNE 


1* 








INC 


FRESH 






1«: 


BR 


« AGAIN 






NXT: 


ADO 


#2,R4 




i POINT TO NEXT POSSIBLE lOP 




INC 


lOP.ID 




;NEXT lOP ID NUMBER 




BR 


TRYNXT 






LDING: 


.ASCIZ 


<CRLF>/LOADING 


lOP ID# / 




• EVEN 









Bi4 
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6057 052160 








ARBITR: 


:ROUTINE TO FXIf} OUT UHAT KIND OF ARBITER CPU IS IN T>C SYSTEM 


6058 052160 


104401 


052450 






TYPE 


.ARBTYP 




6059 052164 


013746 


000004 






NOV 


a»4,-(SP) 
a«6.-(SP) 


PUSH OLD VECTOR ONTO STACK 


6060 052170 


013746 


000006 






NOV 




6061 052174 


012737 


052250 


000004 




NOV 


«5$.aM 


LOAD tCU HANDLER ADDRESS 


6062 052202 


012737 


000340 


000006 




NOV 


«PR7,a06 




6063 052210 


013700 


177750 






NOV 


8#177750.R0 j 


MOVE MAINTENANCE REGISTER TO RO 


6064 














^aN-KDJll WILL TIMEOUT ON ACCESS TO NAIMT. REG 


6065 052214 


042700 


177417 






BIC 


#177417. RO ! 


aEAR T»C NON-CPU ID BITS 


6066 052220 


022700 


000020 






CMP 


«20.R0 


;IS THE AI»ITER CPU A KOJll? 


6067 052224 


001014 








BNE 


10$ 


IF ITS NOT A KDJ BRANCH 


6060 














ELSE 


6069 052226 


052737 


000015 


177746 




BIS 


#i5.a«:cR 


FORCE CACHE MISSES 


6070 052234 


104401 


052477 






TYPE 


.KDJllA 




6071 052240 


012737 


000001 


050762 




MOV 


«l,a0KDJ$ 


MOVE A ONE TO KDJ TO INDICATE THE TYPE OF ARBITER 


6072 052246 


000403 








BR 


10$ 




6073 052250 


005037 


050762 




51: 


CLR 


a«KDJ$ 


NOT A KDJll 


6074 052254 


022626 








CMP 


(SP)*.(SP)» 


RESTORE STACK 


6075 052256 


012637 


000006 




10$: 


MOV 


csp)*.a»6 


RESTORE VECTORS 


6076 052262 


012637 


000004 






MOV 


csp)*.a#4 




6077 052266 


005737 


050762 






TST 


a«<DJ$ 


IF THE ARBITER CPU IS A KDJll 


6078 052272 


001402 








BEQ 


7$ 




6079 052274 


000137 


052446 






JMP 


25$ 


THEN SKIP THE REST OF THIS 


6080 052300 


013746 


000010 




7i: 


MOV 


a#io.-csp) 


.SAVE CONTENTS OF VECTOR 


6081 052304 


013746 


000012 






MOV 


a#i2.-(SP) 




6082 052310 


012737 


052422 


000010 




MOV 


»i5$.a<^io 


LOAD IN NEU VECTOR 


6083 052316 


012737 


000340 


000012 




MOV 


#PR7,a#12 




6084 052324 


000007 








MFPT 


iLSI 11 WILL EXECUTE A RESERVED INSTRUCTION TRAP 


6085 052326 


022700 


000005 






CMP 


<^J11.R0 


sIS IT A DCJll BASED CPU OTHER THAN KDJll? 


6086 052332 


001411 








BEQ 


11$ 


; BRANCH IF YES 


6087 052334 


022700 


000004 






CMP 


#T11,R0 


fIS IT A DCTll BASED CPU? 


6088 052340 


001414 








BEQ 


12$ 


5 BRANCH IF YES 


6089 052342 


022700 


000003 






CMP 


#F11,R0 


sIS IT A DCFll BASED CPU? 


6090 052346 


001417 








BEQ 


13$ 


! BRANCH IF YES 


6091 052350 


104401 


052556 






TYPE 


• UNI^WN 
20$ 


5 ARBITER CPU TYPE UNKNOWN 


6092 052354 


000430 








BR 




6093 052356 


012737 


000001 


050764 


11$: 


MOV 


«1,9*J11$ 
.DCJll 




6094 052364 


104401 


052510 






TYPE 




6095 052370 


000422 








BR 


201 




6096 052372 


012737 


000001 


050770 


121: 


MOV 


«1.8#T11$ 
.DCTll 


{INDICATE Til BASED CPU 


6097 052400 


104401 


052534 






TYPE 




6098 052404 


000414 








BR 


20* 


1 INDICATE AN Fll BASED CPU 


6C')9 052406 


012737 


000001 


050766 


13$: 


MOV 


«l.fiMFll$ 


6100 052414 


104401 


052524 






TYPE 


.DCFll 




6101 052420 


000406 








BR 


20$ 




6102 052422 








15$: 


sGOT HERE VIA A RESERVED INSTRUCTION TRAP WHICH INDICATES AN LSIll CPU 


6103 052422 


012737 


000001 


050772 




MOV 


«1.S<L11$ 


.•INDICATE AN LSIll PRXESSOR 


6104 052430 


104401 


052545 






TYPE 


, LSIll 
(SP)-.CSP)* 




6105 052434 


022626 








CMP 


! RESTORE STACK 


6106 052436 


012637 


000012 




20$: 


MOV 


csp)»,a*i2 


;RESTORE VECTORS 


6107 052442 


012637 


000010 






MOV 


csp)*,a#io 




6108 052446 


000207 






25$: 


RTS 


PC 




6109 








:r€SSAGES 






6110 052450 


015 


012 


101 


ARBTYP: 


.ASCIZ 


<CR><LF>/ARBITER 


CPU TYPE IS / 


6111 052477 


101 


040 


113 


KDJllA: 


.ASCIZ 


/A KDJllA/ 




6112 052510 


104 


103 


112 


OCJll: 


.ASCIZ 


/DCJll BASED/ 




6113 052524 


101 


040 


113 


DCFll: 


.ASCIZ 


/A KOFll/ 





C14 
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BINARY TO ASCII OECIMAL ENCODER 

6114 0525M 101 116 040 DCTll; .ASCIZ /AN SBCll/ I 

6115 052545 101 116 040 LSIll: .ASCIZ /AN LSIll/ 

6116 052556 125 116 104 UNKNUN: .ASCIZ /UNDETERfCENED/ 

6117 .EVEN 



r 



Di4 



KXJU-CA FUNCTIONAL TEST 
16/18/22 BIT MEHOSr SIZER 



6119 








6120 








6121 








6122 








6123 








6124 








6125 








6126 








6127 052574 


005037 


177572 




6128 052600 


012737 


000020 


050736 


6129 052606 


013746 


000004 




6130 052612 


013746 


000006 




6131 052616 


013746 


000114 




6132 052622 


013746 


000116 




6133 052626 


010605 






6134 








6135 052630 


012737 


000116 


000114 


6136 052636 


012737 


000002 


000116 


6137 052644 


012737 


052672 


000004 


6138 052652 


012737 


000340 


000006 


6139 052660 


005737 


177572 




6140 052664 


000240 






6141 052666 


000240 






6142 052670 


000416 






6143 








6144 052672 


012737 


052716 


000004 


6145 052700 


005002 






6146 052702 


005003 






6147 052704 


005712 






6148 052706 


062702 


004000 




6149 052712 


005203 






6150 052714 


000773 






6151 052716 


162702 


000002 




6152 052722 


005001 






6153 052724 


000514 






6154 








6155 052726 


012701 


172340 




6156 052732 


012702 


172300 




6157 052736 


012703 


000010 




6158 052742 


005000 






6159 052744 


010021 






6160 052746 


012722 


077406 




6161 052752 


062700 


000200 




6162 052756 


077306 






6163 052760 


012741 


177600 




6164 052764 


005041 






6165 052766 


005003 






6166 








6167 052770 


012737 


053046 


000004 


6168 052776 


005737 


172516 




6169 053002 


012737 


000020 


172516 


6170 053010 


012737 


053064 


000004 


6171 053016 


052737 


000001 


177572 


6172 053024 


012711 


010000 




617? 053030 


023737 


000004 


140004 


6174 053036 


001013 






6175 
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.SBTTL 16/18/22 BIT MEMORY SIZER 
********************************************************************** 

MEMORY SIZER FREELY ADAPTED FROM ".iSIZE- IN SYSMAC.SH. (C3). 
THIS ROUTINE MUST RESIDE WITHIN THE FIRST 24K (0-137776). 
ALL GENERAL REGISTERS ARE USED BUT NOT SAVED. 
MEMORY PARITY ERRORS (IF ANY) ARE IGNORED. 



• SIZE: aR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
TST 
NOP 
NOP 
BR 



1$: 

2$: 

3$: 



1$: 



MOV 
CLR 
CLR 
TST 
ADO 
INC 
BR 

sue 
aR 

BR 



.SIZKT: MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
ADO 
SOB 
MOV 

aR 
aR 

MOV 
TST 
MOV 
MOV 
BIS 
MOV 

crp 

6NE 



a«MMRO 

»16.,.ABUSU 

a#4.-(SP) 

a*6,-(SP) 

8<H14.-(SP) 

a#ii6.-(SP) 

SP.R5 

«ii6.a«ii4 

#RTI. 3*116 
«ll.9«4 
»340.a«6 
MHRO 



.SIZKT 

«3I,9M 

R2 
R3 
(R2) 

M000.R2 

R3 

2« 

«2.R2 
Rl 

.SIZXIT 

4KIPAR0.R1 
#KIP0R0.R2 
M..R3 
RO 

RO.CRD* 
#77406. (R2)* 
#200. RO 
R3.1* 

#177600. -(Rl) 

-(Rl) 

R3 

#2».8#4 

nMR3 

#20.MMR3 

#3$ 3#4 

«eit00.9«MMR0 

#10000. (Rl) 

S#4.a#140004 

4$ 



ENSURE THAT MEMORY MANAGEMENT IS OFF!!! 
ASSUME 16 BIT ADORESSINT. 
SAVE BUS-ERROR... 



!!...AND PARITY VECTORS. 

SA\^ STACK POINTER IN R5. 
:: IGNORE PARITY ERRORS. 

SIZE USING "l*" IF KT ISN'T THERE. 



;; FILLER FOR Til. 

:: OTHERWISE , SIZE USING THE KT. 

5! NO KT - SET TRAP CATCHER. 
;: FIRST ADDRESS (0). 



SIZE FROM 0 UP... 
...IN IK STEPS... 

...UNTIL UE TRAP. 
R2 - LAST VIRTUAL ADDRESS. 
Rl « 0 (PAF DOESN'T APPLY). 
RETURN. 

1ST "PAR" ADDRESS... 
...AND IT'S "POP"... 
. . .AND THERE ARE 8 OF EACH. 
1ST PAGE IS ZERO. 
SET PAR'S • 0. 4K. 8K ... 28K. 
SET PDR'S - 4K, EX-UP. READ/WRITE. 



• I 
» • 

i { 



SET NEXT PAGE ^AF (♦4K). 
...AND LOOP UNTIL ALL LOADED. 
PAR7 IS THE I/O PAGE (PAF). 
PAR6 MILL 00 THE SIZING. 
R3 WILL COUNT THE K'S. 

TRAP TO 2» IF NO 22 BIT SUPPORT. 

22 BITS SUPPORTED ?? 

MUST BE, SET 22 BIT MODE... 
...TRAP TO 3» IF 22 BIT ADDRESS IS NXM. 
****** KT ON ************************* 

SET PAR6 AT START OF 22 BIT LAIC... 
...AND LOOK FOR URAP-AROUND. 

WE'RE HERE IF IT DIDN'T TRAP... 
...BRANCH IF IT DIDN'T URAP-AROUND. 



E14 



KXJll CA FUNCTIONAL TEST 
16/18/22 BIT MEWr SIZER 
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6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

61% 

6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 



053040 
053044 
053046 
053050 
053056 
053062 
053064 
053066 
053074 
053100 
053100 
053106 
053110 
053114 
053120 
053122 
053124 
053126 
053130 
053132 
053134 
053140 
053144 
053146 
053152 

053156 
053162 
053166 
053172 
053176 
053202 
053204 
053210 

053216 
053220 
053224 
053226 
053234 
055236 

053242 
053244 

053250 
053254 
053256 
053262 
053266 
053272 
053276 
053300 
053305 
053312 
053317 
053355 



005037 
000401 
022626 
012737 
012704 
000406 
022626 
012737 
012704 

012737 
005011 
005737 
062711 
005203 
021104 
103771 
000401 
022626 
011100 
012711 
005037 
010001 
162701 
012702 

010137 
010237 
010337 
013746 
104401 
104405 
104401 
022757 

001003 
104401 
000411 
022737 
001003 
104401 

000402 
104401 
104401 

010506 
012637 
012637 
012637 
012637 
000207 
200 
200 
200 
102 
113 



172516 



000022 
007600 



000026 
177600 

053130 

140000 
000040 



001400 
177572 

000040 
003776 

050732 
050734 
050730 
050730 
001163 

053353 
000026 



053312 
000022 
053305 



055500 
055517 

000116 
000114 
000006 
000004 

061 
061 
062 
111 
127 



050736 

050736 
000004 



BR 

2*: CMP 
6(: MOV 
MOV 
BR 

3$: CMP 
4$: MOV 
MOV 

5$: 

-SIZMEM: MOV 
CLR 



1(: 



2*: 
3$: 



050736 



050736 II: 



3«: 
21: 



TST 

ADD 

INC 

CMP 

BLO 

BR 

CMP 

MOV 

MOV 

CLR 

MOV 

SUB 

MOV 



.SIZXIT: MOV 
MOV 
MOV 
MOV 
TYPE 
TYPOS 
TYPE 
CMP 



BfE 

TYPE 

BR 

CMP 

6NE 

TYPE 



066 
070 
062 
124 
040 



ADR16: 

ADR18: 

A0R22: 

ADRSUP: 

KUMEH: 



BR 

TYPE 

TYPE 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

•ASCIZ 

.ASCIZ 

.EVEN 



Mm3 
6$ 

(SP)*.(SP)* 
«18. ..ABUSU 
»7600.R4 
5* 

(SP)*.(SP)* 
«22... ABUSU 
#177600. R4 

«2l.a#4 

(Rl) 
140000 
#40, (Rl) 
R5 

CR1).R4 

II 

3* 

(SP)*.CSP)* 
(Rl).RO 
#1400. CRD 
?»«MMRO 
RO.Rl 
#40, Rl 
#3776. R2 

R1,,LSTPG 
R2..LSTA0 
R3..MSIZE 
.MSIZE,-CSP) 
, ICRLF 

.KltCM 
#22... ABUSU 

II 

,ADR22 
21 

#18... ABUSU 
31 

.ADR18 
21 

.A0R16 
R5.SP 

(SP)*.a#ii6 
(SP)*,a#ii4 
(SP)*,a#6 
(SP)*,a#4 

<CRLF>/16 / 
<CRLF>/18 / 
<CRLF>/22 / 
/BIT ADDRESSES 
/KU OF ARBITER 



URAP-AROUrC 



MUST BE 18 BITS ONLY. 



FIX STACK 

: SET THE BUS UIOTH - 18. 
: SET SIZER LIMIT - 124K. 

FIX STACK 

: UE HAVE A REAL 22 BIT ADDRESS SPACE. 
; SET SIZER LIMIT - 2048K. 

: TRAP TO 21 WHEN DONE SIZING. 
; SET PAR6 AT 1ST PAGE (0). 
; SIZE USING PAR6 (♦©)... 
;...IN IK STEPS. 

; REACHED LIMIT ?? 
: LOOP IF NOT. 

FIX THE STACK 

DONE. SAVE FINAL PAR6... 
...AND RESET IT TO BANK 6 C24K). 
****** KT OFF ************************ 

RECOVER SIZING RESULT. 

Rl « LAST IK PAGE CPAF). 

R2 «= LAST ADOR IN THAT PAGE. 

RETURN LAST PAGE (PAF)... 
...LAST VIRTUAL ADDRESS... 
...AND TOTAL MEMORY SIZE CK). 

REPORT MEMORY SIZE 



! MEMORY SIZE MESSAGE 

s AFTER ALL THAT. ARE UE SUPPORTING 22 BIT 
,- ADDRESSING? 

I YES. TYPE MESSAGE INDICATING 22 BIT ADDRESS 

s;HOU ABOUT 18 BIT ADDRESSES? 

5! NOPE, TYPE MESSAGE INDICATING NO 22 BIT 
SUPPORT 



:i RECOVER OUR STACK POINTER. 
::...AND THE ERROR VECTORS. 



i:...AND RETURN. 



ARE SUPPORTED/ 
MEMORY INSTALLED/ 



F14 



KXJll CA FUNCTIONAL TEST 
16/18/22 BIT MEHORY SIZER 



6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

62:33 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 



053412 

053412 
053416 
053420 
053424 
05343C 
053436 
053444 
053450 
053454 



105737 
100516 
013746 
013746 
012737 
012737 
005037 
012701 
012703 



001207 

000004 
000006 
053766 
000340 
001244 
000004 
000006 



053564 
053570 
053574 
053602 
053604 
053610 
053612 
053614 
053620 
053622 
053626 
053630 
053634 
053636 
053642 
053644 
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SNIFFR: :NOU FIW OUT HOW MANY AND UHAT ADOf^SS Tht lOPS ARE AT IN T« SYSTEM 

; SHOULD UE SIZE? 
SAVE VECTOR 

MOV a«6.-(SP) I 
000004 MOV «5».3«4 :LOAO NXM TRAP HANDLER 

000006 

_^ . 'CLEAR THE DEVICE MAP 

LOAD $DEVM UITH VALUE IN Rl 
LOOP CONTROL 

SINCE lOP WITH AN ID OF 0 OR 1 HAS ITS INTERFACE TO THE QBUS DISABLED 
UE'LL SKIP OVER THOSE POSITIONS IN THE DEVICE DESCRIPTOR UORDS. 



TSTB 


a^^ENVM 


BHI 


12( 


MOV 


a#4. (SP) 


MOV 


a«6.-(SP) 


MOV 




MOV 


4PR7,a«6 


CLR 


$OEVM 


MOV 


*4.R1 


MOV 


«6.R3 



012637 
012637 
032737 
001440 
104401 
104411 
012600 
120027 
001411 
120027 
001406 
120027 
001423 
104401 
000760 
052777 



000006 
000004 
100000 

053776 



000131 
000015 
000116 
001162 
010000 



001244 



8$: 



125266 9t: 



MOV (SP)».a#6 

MOV (SP)*.8#4 

BIT «eiTi5,$oevM 

BEQ 15« 

TYPE pKGIOPQ 
RDCHR 

MOV (SP)*,RO 

CMP8 RO.#'Y 

BEQ 91 

CMPB R0.«15 

BEQ 9« 

CMPB RO.«'N 

BEQ 15$ 

TYPE .IQUES 

BR 81 

BIS WIT12.8SUR 



053460 


012704 


001256 






MOV 


«»0DU2.R4 


START OF DEVICE DESCRIPTOR WORDS 














IN E TABLE 


053464 


012737 


000001 


001412 




MOV 


«l.a«TSTLOC 




053472 


012705 


160100 






MOV 


«160100,R5 


BASE ADDRESS FOR lOP ID« 2 OR OVER. 


053476 


004737 


053734 






JSR 


PC, It 




053502 


012703 


000010 




§ 


MOV 


«10.R3 




053506 


012705 


175400 






HOV 


«175400.R5 iBASE ADDRESS FOR lOP ID OF 8 AND OVER 


053512 


004737 


053734 






JSR 


PC.U 




053516 


005737 


050770 




9 


TST 


Til* 


IS THE ARBITER Til BASED 


053522 


001003 








BNE 


10$ 


OR 


053524 


005737 


050772 






TST 


Lll$ 


LSIll BASED? 


053530 


001415 








BEQ 


11$ 


IF NOT THEN SKIP THE NEXT FEU LINES 












AS IT GETS HAIRY UITH MMU REGISTERS 
















! IN Fll AND Jll ARBITERS. OCCUPYING 
















i THE SAME I/O ADDRESSES. 


053532 


012737 


000002 


001412 


101: 


MOV 


»2.8*TSTL0C 




053540 


012705 


162100 






MOV 


«162100.R5 


IbASE ADDRESS OF LOU RANGE lOPS 


053544 


004737 


053734 






JSR 


PC.1$ 




053550 


012703 


000010 




• 


MOV 


«10.R3 


iBASE ADDRESS FOR lOP ID OF 8 AND OVER 


053554 


012705 


177400 






MOV 


#177400. R5 


053560 


004737 


053734 






JSR 


PC.1$ 





RESTORE VECTORS 

IS THERE AN lOP ID - 15? 

{GET CHARACTER 
jlS RESPONSE YES? 

sis RESPONSE THE DEFAULT? 

:IS RESPONSE NO 



iASK AGAIN 
tSET BIT IN SUR 



G14 
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6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 



053652 000404 



053654 

053662 
053664 
053672 
053676 
053704 
053710 
053714 
053720 
053722 
053724 

053730 
053732 



053734 
053736 
053740 

053744 
053750 
053754 
053756 
053762 
053764 



053766 
053770 
053774 

053776 



054070 

054070 
054074 
054100 
054106 
054114 
054120 
054122 
054130 
054132 
054136 
054142 
054144 



005715 
000240 
013714 

050137 
062704 
006301 
062705 
077314 
000207 



005014 
012716 
000002 



200 



013746 
013746 
012737 
012737 
005737 
102404 
012737 
000402 
005037 
005737 
102404 
012737 



BR 



7* 



cores HERE IN EITHER STAfOALONE OR APT riQOE 



032777 


010000 


125256 


12*: 


BIT 


«BIT12.aSUR 


001410 








BEQ 


15» 


042737 


100000 


001244 


7$: 


BIG 


«IT15,»0EVM 


005037 


001310 






CLR 


tOOU15 


012737 


177777 


050744 




MOV 


* l.aSKG.IOP 


013701 


001244 




15*: 


MOV 


*DeVM.Rl 


012702 


000020 






MOV 


*16.,R2 


005037 


050746 






CLR 


lOPCNT 


006001 






13*: 


ROR 


Rl 


103002 








BCC 


14* 


005237 


050746 






INC 


lOPCNT 


077205 






14*: 


SOB 


R2.13* 


000207 








RTS 


PC 



SUBROUTINE 
CALLED BY SNIFFR 



001412 

001244 
000002 

000040 



053750 
111 



000004 
000006 
054172 
000340 
170000 



1*; 



2*: 



TST 

m> 

MOV 

BIS 
ADD 
ASL 
ADD 
SOB 
RTS 



CR5) 

a*TSTL0C,(R4) 

Rl.a**DEVM 

#2.R4 

Rl 

#40, R5 

R3.1* 

PC 



IS lOP ID# 15 TO BE USED AS A 
...KNOWN G(XM) DEVICE 

YES. aEAR IT OUT OF DEVICE MAP 

AND DEVICE DESCRIPTOR WORD 
INDICATE A KWUN GOOD lOP IS PRESENT 
LOAD THE FINISHED DEVICE MAP INTO Rl 
INIT R2 AS A COUNTER 
CLEAR THE lOP COUNTER 
ROTATE DEVICE MAP 

BRANCH IF LOU ORDER BIT UAS NOT SET 

INCREMENT lOP COUNTER IF LOU ORDER BIT 

... UAS SET 

LOOP CONTROL 

RETURN TO MAINLINE CODE 



IF TIME-OUT OCCURS THEN NO lOP AT 
. . . THIS ADDRESS 

DATA IN UORD INDICATES lOP PRESENT 
1=L0U RANGE ADDRESS. 2«HI RANGE ADDRESS 
SET BIT IN DEVICE MAP IN ETABLE 
POINT TO NEXT lOP TABLE ENTRY 



123 



5*: 



KGIOPQ: 
.EVEN 



-NXM TRAP HANDLER 
CLR CR4) 
MOV «2*.(SP) 
RTI 



:GET NEXT lOP ADDRESS 
{RETURN TO SNIFFR 



{ZERO BYTE INDICATES NO lOP AT ADDRESS 
;PUT NEU RETURN ADDRESS ON STACK 
{RETURN 



.ASCIZ <CRLF>«S lOP ID #15 TO BE USED AS A KNOUN GOOD lOP? CY/N) <Y>!< 



000004 
000006 



OBEX: {SUBROUTINE TO DETERMINE IF Q BUS EXERCISER IS RESIDENT IN SYSTEM 
' { save' VECTORS ON THE STACK 

I ANTICIPATE TIMEOUT 



000001 050760 

050760 
170020 

000001 050756 



10*: 
11*: 



MOV 
MOV 
MOV 
MOV 
TST 
BVS 
MOV 
BR 

aR 

TST 
BVS 
MOV 



8#4.-(SP) 
S«6,-(SP) 
#20*.9#4 
#PR7<8#6 
80170000 
10* 

«l.a«QBE18 
11* 

8«QBE18 

9«170020 
15* 

»1.9«QBE22 



LOOK FOR RESPONSE 

V BIT SET INDICATES TIMEOUT 

18 BIT QBUS EXERCISER RESIDENT 

NO 18 BIT QBE 
LOOK FOR RESPONSE 

V BIT SET INDICATES TIMEOUT 
22 BIT QBUS EXERCISER RESIDENT 



H14 



KXJll-CA FUlCTIOML TEST 
16/18/22 BIT HEMORY SIZER 
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6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 



054152 
054154 
054160 
054164 
054170 



054172 

054200 

054202 

054202 
054210 
054212 
054220 
054222 
054230 
054232 
054240 
054242 
054250 
054256 
054264 

054272 
054274 



000402 

005037 
012637 
012637 
000207 



052766 
000002 



022737 
001410 
022737 
001410 
012737 
000407 
012737 
000403 
012737 
013737 
062737 
032737 

001406 
062737 



054302 042737 



054310 
054316 
054320 

054324 
054330 
054332 
054340 
054346 
054352 
054354 
054360 

054364 
054370 
05^374 
054376 
054402 
054410 
054416 
054420 
054475 



023737 
103405 
005037 

104401 
000424 
013737 
163737 
013701 
005000 
071027 
010037 

013746 
104401 
104405 
104401 
012737 
012737 
000207 
040 
200 



050756 
000006 
000004 



000026 

000022 

001600 

177600 

007600 
050732 
000040 
000177 

000200 

000177 

050752 

050754 

054475 

050750 
050752 
050754 

000200 
05O754 

050754 
001163 

054420 
054530 
000340 

070 
116 



050736 

050736 

050750 

050750 

050750 
050752 
050752 
050752 

050752 
050752 
050750 



050754 
050754 



000404 
000406 

113 
117 



15i: 
16$: 



BR 

aR 

tlOV 

nov 

RTS 



16$ 

90QBE22 
CSP)*.S06 
(SP)-.a#4 
PC 



NO 22 BIT QBE 
RESTORE VECTORS 



INTERRUPT HA^OLER FOR TItCOUT ON ACCESS TO Q BUS EXERCISER 



000002 000002 201: 



SHRt€M: 



10$: 

15$: 
20$: 



5$: 



6$: 



7*: 



SHMAMT: 
NOSHMR: 



BIS 
RTI 



«IT01.2CSP) 



;GOT HERE ON TIMEOUT. SET THE V BIT IN 

; RETURN PSU TO INDICATE TIMEOUT OCCURRED. 



BEQ 
ADO 

BIC 

CMP 
BLO 
CLR 

TYPE 

BR 

MOV 

SiJB 

MOV 

CLR 

OIV 

MOV 

MOV 

TYPE 

TYPDS 

TYPE 

MOV 

MOV 

RTS 

.ASCIZ 

.ASCIZ 



IS THIS A 22 BIT SYSTEM? 
IS THIS AN 18 BIT SYSTEM? 



jFIRST LET'S FIND OUT HOU MUCH SHARED MEMORY SPACE IS AVAILABLE 
iON THE Q BUS. 

CMP *22...ABUSU 

BEQ 10$ 

CMP #18...ABUSU 

BEQ 15$ 

MOV #1600.$HILIM 

BR 20$ 

MOV #177600. $HILIM 

BR 20$ 

MOV *7600.$HILIM 

MOV 9«.LSTP6.9<H.QULIM 

ADO #4O.a«L0ULIM 

BIT #177.a«.0ULIM 



5$ 

«200,a«L0ULIM 

#177.a#L0ULIM 

9M.0ULIM.IHILIM 
6$ 

MAXBLK 

.NOSHMR 
7» 

$HILIM, MAXBLK 
a«L0ULIM, MAXBLK 
MAXBLK, Rl 
RO 

«200,R0 
RO. MAXBLK 

MAXBLK, -CSP) 
,*CRLF 



MOVE LAST PAGE TO LOULIMO 
MAKE IT POINT TO FIRST NXM ADDR 
CHECK AND MAKE SURE FIRST NXM 
PAGE IS A 8KB BOUNDRY. 



IF NOT THEN MAKE IT THE NEXT HIGHER 
8KB BOUNDRY 

LOULIM HOLDS THE FIRST NXM ADDRESS 

ON AN 8KB BOUNDARY 

MAKE SURE UE HAVE ENOUGH ROOM 



;N0 ROOM FOR 
; MAXBLK 



SHARED MEMORY. CLEAR 



{CALCULATE THE AMOUNT OF 

; Q-BUS MEMORY SPACE USABLE 

5 FOR SHARED MEMORY 



.-MAXIMUM NUMBER OF QBUS 8KB BLOCKS 
; AVAILABLE FOR SHARED MEMORY. 
! REPORT AMOUNT OF SHARED MEMORY 



, SHMAMT 

MRB404.W404 

«PR7,S#406 

PC 

/ 8KB BLOCKS OF SHARED MEMORY SPACE AVAILABLE/ 
<CRLF>/NO ROOM FOR SHARED MEMORY/ 



114 

KXJll-CA FUNCTIONAL TEST 
16/18/22 BIT MEMORY SIZER 



6405 
6406 

6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
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THIS ROUTINE IS ENTERED UHEN THE K2 IICER TEST SIGNALS T* ARBITER 
THAT IT IS ««ADY TO ACCEPT THE DATA NEEDED TO COW^IGJRE T>C StWRED 
MEMORY. 

:SEE IF THIS IS THE FIRST TI»€ THRU 



GET MAXIMUM WRITE VALUE 
INIT NBLKS 

INIT REMAINING BLOCKS 

INIT STARTING ADDRESS OF Q BUS NXM 

SET UP VECTORS 



5 WHILE REMBLK ARE > 64 

SUBTRACT T^€ 64 BLOCKS TO BE TESTED 
INIT THE NUMBER OF BLOCKS OF 
QBUS MEMORY TO BE ALLOCATED 



INCREMENT NUMBER OF BLOCKS TO BE 
ALLOCATED 

GET BASE ADDRESS OF lOP BEING TESTED 
LOAD NUMBER OF BLOCKS TO BE SHARED 
INTO K2 TPRll 

LOAD STARTING Q BUS ADDRESS INTO 
K2 TPR12S CAUSE INTERRUPT TO K2 





005737 


055304 




ARB404: 


TST 


FIRST 


054534 


001034 








BNE 


2* 


054536 


013700 


052002 






MOV 


lOPAOR.RO 


054542 


016037 


000012 


055306 




MOV 


12(R0).MAX.WT 


054550 


005037 


055274 






CLR 


NBLKS 


054554 


013737 


050754 


055300 




MOV 


MAXBLK,RE^BLK 


054562 


013737 


050752 


055276 




MOV 


LOWLIM.QBSTRT 


054570 


012737 


177777 


002426 




MOV 


*-l,3#TRAP4X 


054576 


012737 


055164 


000400 




MOV 


irAR8400 , SirAOO 


054604 


012737 


000340 


000402 




MOV 


«PR7,a«402 


054612 


012737 


054726 


000374 




MOV 


*ARB374,a*374 


054620 


012737 


000340 


000376 




MOV 


#PR7. 3*376 


054626 


005237 


055304 




2(: 


INC 


FIRST 


054632 


022737 


000100 


055300 




Ctf> 


*64. .REMBLK 


054640 


002007 








BGE 


3$ 


054642 


162737 


000100 


055300 




SUB 


#64.. REMBLK 


054650 


012737 


000100 


055302 




MOV 


«64..CURBLK 


054656 


000405 








BR 


4$ 


054660 


013737 


055300 


055302 


3$: 


MOV 


DCMOI 1/ PI ODI 1/ 

KLMdLK , LlftoLK 


054666 


005037 


055300 






CLR 


REMBLK 


054672 








41: 




NBLKS 


054672 


005237 


055274 




AR.404: 


INC 


054676 


013700 


052002 






MOV 


lOPAOR.RO 


054702 


013760 


055274 


000026 




MOV 


NBLKS. 26CR0) 


054710 


013760 


055276 


000030 




MOV 


QBSTRT.30CR0) 


054716 


012701 


000200 






MOV 


»200.R1 


054722 


077101 








SOB 


Rl.. 


054724 


000002 








RTI 





o±4 

KXJU CA FUNCTIONAL TEST 
16/18/22 BIT MEMORY SIZER 
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6451 


054726 








ARB374: 


:URITE 


6452 














6521 


054726 








301: 


; CHECK 


6522 


054726 


013701 


055276 






MOV 


6523 


054732 


010137 


172352 






MOV 


6524 


054736 


010103 








MOV 


6525 


054740 


162703 


000200 






SUB 


6526 


054744 


010337 


172346 






MOV 


6527 


054750 


013700 


055274 






MOV 


6528 


054754 


062701 


000200 




31*: 


ADD 


6529 














6550 


054760 


077003 








SOB 


6531 


054762 


010137 


172350 






MOV 


6532 


054766 


162701 


000200 






SUB 


6533 


054772 


010137 


172354 






WV 


6534 


054776 


012702 


055134 






m\i 


6535 


055002 


013746 


000004 






MOV 


6536 


055006 


012737 


055072 


000004 




MOV 


6537 


055014 


052737 


000020 


172516 




BIS 


6538 


055022 


052737 


000001 


177572 




BIS 


6539 


055030 


023727 


055304 


000001 




CMP 


6540 


055036 


001003 








BNE 


6541 


055040 


062702 


000002 






ADD 


6542 


055044 


000402 








BR 


6543 


055046 


005732 






37$: 


TST 


6544 


055050 


000413 








BR 


6545 


055052 


005732 






38$: 


TST 


6546 


055054 


000411 








BR 


6547 


055056 


012737 


055114 


000004 




MOV 


6548 


055064 


005732 








TST 


6549 


055066 


005732 








TST 


6550 


055070 


000425 








BR 


6551 














6552 


055072 


062716 


000002 




33$: 


ADD 


6553 


055076 


000002 








RTI 


6554 














6555 


055100 








34$: 






055100 


013700 


052002 






W)V 




055104 


012760 


000001 


000010 




MOV 


6556 


055112 


000420 








BR 


6557 














6558 


055114 








35$: 






055114 


013700 


052002 






MOV 




055120 


012760 


000002 


000010 




MOV 


6559 


055126 


012716 


055154 






MOV 


6560 


055132 


000002 








RTI 


6561 














6562 


055134 


077776 






32$: 


.UORD 


6563 


055136 


100000 








.UORD 


6564 


055140 


120000 








.UORD 


6565 


055142 


157776 








.UORD 


6566 














6567 


055144 


012637 


000004 




36$: 


MOV 


6568 


055150 


000137 


055164 






JMP 


6569 














6570 


055154 


012637 


000004 




40$: 


MOV 


6571 


055160 


000137 


055234 






JMP 



URITE THE SHARED MEMORY THAT HAS BEEN ALLOCATED TO THE QBUS 



THAT THE BOUNDARYS 
Q6STRT.R1 
R1.3«KIPAR5 
R1.R3 
#200. R3 
R3.a#KIPAR3 
NBLKS.RO 
#200. Rl 

R0.31$ 

Rl.a#KIPAR4 

#200. Rl 

R1.S#KIPAR6 

#32$. R2 

a#4.-(SP) 

#33$.a#4 

#20,S#172516 

#1.9#MMR0 

FIRST. #1 

37$ 

#2.R2 

38$ 

a(R2)* 

34$ 

9CR2)« 
34$ 

#35$.S«4 
9(R2)« 
9(R2)* 
36$ 

#2,(SP) 



ARE BEING HO^«)REO 

STARTING QBUS ADDRESS OF SHARED MEM 



LAST NXM BEFORE SHARED MEMORY 



CALCULATE FIRST NXM AFTER SHARED 
. . .MEMWY 
LOOP CONTROL 



LAST SHARED MEMORY BLOCK 



SAVE VECTOR 

ENABLE 22 BIT ADDRESSES 
TURN ON MMU 



; SHOULD TIMEOUT 

J HIGH NXM BOUNDARY SHOULD TIMEOUT 

•SHOULD NOT TIME OUT 
<» 

iBUMP RETURN ADDRESS 



lOPADR.RO 

#ARBER.10(R0) 

40$ 



lOPADR.RO 
«ARBER.10(R0) 
#40$, (SP) 



; SHARED MEMORY OUT OF BOUNDS 



itttt 



{SHARED MEMORY TIMED -OUT ;tttt 
sBAIL OUT AFTER ERROR 



77776 
100000 
120000 
157776 

(SP)«.3#4 
ARB400 



LOU BOUNDARY NXM 
HIGH BOUNDARY NXM 
FIRST SHARED MEM 
LAST SHARED MEM 



(SP)*.a#4 sRESTORE VEC 

EX400 ;BAIL OUT AFTER ERROR 



K14 

KXJll-CA FUNCTIONAL TEST 
16/18/22 BIT fCMORY SIZER 
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6574 


055164 








ADCtAOA. 


:N0U DETERMINE IF ALL BLOCKS HAVE BEEN TESTED. IF NOT THEN 


6575 












INITIALIZE ThC VALUES NEEDED TO 


CONTINUE . 


6576 


















boi / 


V/55io4 




U35c 






CnP 


NBLKS , CURBLK j 


DID Ut TEST ALL THE BLOCKS IN THE 


d5 io 
















CIWRENT 256KU SEGMENT ? 




U551 '£ 










D^c 


2> ; 




o5oU 


V/35i. IH 










CLR 


NBLKS i 


CLEAR NUMBER OF BLOCKS TO BE ALLOCATED 


050i 


U55cUU 


UVJ 1 0 1 








TST 


RtrwLK i 


HAVE ALL BLOCKS BEEN TESTED? 


05oe 












dEu 


do* 


IF YES THEN BAIL OUT 


o5od 
















ELSE 










n^'>37A 




ADD 


#20000 , QBSTRT 


E>bT NtXT STARTING QBUS ADDRESS 


















Or NEXT 64 4KU BLOCKS 


0300 






054530 








ADO Jl /\A 


AA TT APATkl 
UU 1 1 AbAxN 


03o ' 










f 








0300 




fW\^ T7 








AD A /\A 

AK.404 














* 

e3v : 


















nuv 


TflDAnO DA 










000010 
1 77^73 






LLK 


1 AroA^ 
lOlKOJ 


CTPklAI 1/^ TUAT TCCT TC riAMC 












LLK 


OJIMMDA 


.MM 1 ncc 
innu urr 




0SS74n 










LLH 


on 
KO 


. TMTT on 
i iru 1 Ku 








000007 






nuv 


A7 DO 
9f ,t<d 


. CCT 1 D POD rni WT 

1 oc 1 Ur r UK LUUN 1 






01 9701 


1 7P'7A0 






nuv 


AI/TDAOO D1 
wIVXrnnU , KX 


. TMTT D 1 
; XNX 1 KX 






01 OOP1 






1 1 ' 


Mnw 

nuv 


DA TDI S A 

HO, V. HI J* 


. TWTT I^TDADC 
; XnX 1 l\Xr HKo 




0SSPS4 


0AP700 


OOOPOO 






Ann 


AOAA DA 

v£00 , KO 


. DnXkJT Tn kICVT DAPC 
irUlNI lU NtA 1 rHbt 


DD70 




0773OA 








cna 


DO 1 t 
K£ , X? 


. 1 nno cnwTDAi 
i LUUr LUN 1 KUL 


O J77 




00^077 


009d.7A 






n D 
LLK 


TO ADA V 




DOW 






AS<>XOA 






LLn 


(TTOCT 
r IKs 1 


.nnuc uTTu tcct 
; UUNc wx 1 n i i 


DDvX 




OOOOO? 








DTT 

K 1 1 
























DDUO 


















6604 


055274 


000000 

www 






NBLKS* 


.UC»D 


0 




6605 


055276 


000000 






QBSTRT: 


.WORD 


0 




6606 


055300 


000000 






REMBLK: 


.WORD 


0 




6607 


055302 


000000 






CURBLK: 


.UORD 


0 




6608 


055304 


000000 






FIRST: 


.WORD 


0 




6609 


055306 


000000 






MAX.UT: 


.UORD 


0 





L14 



KXJll-CA FUNCTIONAL TEST 
lb/16/22 BIT MEMORY SIZER 



6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 

6664 

6665 

6666 

6667 



055310 

055310 
055314 
055316 
055322 
055326 
055334 
055342 
055350 

055354 
055360 
055366 

055372 
055400 
055402 
055406 
055412 
055420 
055422 
055426 

055430 
055432 
055434 
055440 
055442 
055450 
055452 
055460 
055460 
055464 
055470 
055472 
055476 
055502 
055506 
055510 
055512 
055514 
055520 
055524 
055532 
055534 

055536 
055544 
055551 
055605 
055620 
055627 

055641 



MACRO Y05.02 



SHOSYS 



105737 
100444 

012704 
012702 
012737 
012737 
012737 
004737 

012702 
012737 
004737 

022737 
001004 
104401 
104401 
022737 
001002 
104401 
000207 

005714 
001430 
132714 
001004 
053737 
000403 
043737 

104401 
013746 
104405 
104401 
104401 
104401 
012746 
000000 
104402 
062704 
005237 
062737 
077242 
000207 

015 
015 
102 
015 
040 
113 

040 



001207 

001256 
000006 
002000 
160100 
000002 
055430 

000010 
175400 
055430 

000001 

055536 
055551 
000001 

055544 



000001 

001412 

001412 

055605 
050742 

055620 
055627 
055641 



000002 
050742 
000040 



012 
012 
111 
012 
111 
130 

101 



001412 
055510 
050742 



055510 
050760 

050756 31$; 

33$: 
40$: 



055510 

055510 41$; 

42$: 
1$: 



3«: 

22$: 

30$: 

055510 



061 32$ 

062 34$ 
124 35$ 

111 7$: 

123 8$ : 

112 10$: 
;11$ 

124 12$: 
:20$ 
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«U THE SYSTEM IQPS ON THE ARBITER'S CONSOLE 
; SHOULD UE SIZE? 



S*$ENVN 
33$ 

«$00U2.R4 
46. R2 

*2000,a#TSTL0C 
#160100.22$ 
*2.I0P.ID 
PC. 40$ 

*8..R2 

*1 75400. 22$ 

PC. 40$ 

«1.3«QBE18 
31$ 
.32$ 
.35$ 

«1.3«QBE22 

33$ 

.34$ 

PC 

CR4) 
30$ 

01.CR4) 
41$ 

a#TSTLOC, 22$ 
42$ 

a#TSTLOC, 22$ 
.71 

IOP.IO,-CSP) 



.8$ 

.10$ 

.12* 

(PC)^ 
0 



(SP) 



«2.R4 
lOP.IO 
MO. 22$ 
R2.40I 

PC 



POINT TO FIRST lOP TABLE ENTRY 

LOOP CONTROL 

BIT SET FOR HI RANGE 

BASE ADDRESS OF lOPS 

FIRST lOP ID NUMBER 



LOOP CONTROL 

BASE ADDRESS OF lOPS WITH I0# 8 OR OVER 



IS THERE AN 18 BIT QBE IN THE SYSTEM 



;IS THERE A 22 BIT QBE IN THE SYSTEM? 



ilF ZERO THEN NO lOP PRESENT 
;WHAT IS THE ADDRESS RANGE 

ISET HI RANGE FOR PRINT OUT 

;SET LO RANGE FOR PRINT OUT 

;TYPE lOP ID NUMBER 
; INDICATE A KXJll-CA 



TYPE lOP ADDRESS 
ADVANCE TABLE POINTER 
ADD 1 TO lOP ID NUMBER 
POINT NEXT lOP ADDRESS 



<CR><LF>/18 / 
<CR><LF>/22 / 

/BIT QBUS EXERCISER RESIDENT/ 

<CR><LF>/IOP ID# / 

/ IS A / 

/KXJll-CA / 

/KXTll-CA / 

/ AT ADDRESS / 

/ IS PRESENT BUT NOT AVAILABLE/ 



KXJll CA FUNCTIONAL TEST 
16/18/22 BIT MEMORr SIZER 
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6668 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

6664 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 



055656 
055662 
055666 
055672 
055676 
055702 
055706 
055712 
055716 
055722 
055726 
055732 
055736 
055742 

055746 
055750 
055752 

055756 
055760 
055764 
055770 
055774 
056000 
056002 
056006 

056012 
056016 
056020 
056024 
056030 
056034 
056036 
056040 
056042 
056044 



056056 
056062 
056064 
056066 
056070 
056076 
056104 
056106 

056112 
056116 
056120 
056124 



104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 
104417 

010146 
010046 
017601 

010100 
072027 
042700 
062700 
132710 
001002 
052701 
016100 

032700 
001004 
062700 
004770 
005061 
012600 
012601 
022626 
000002 
056464 



013746 
010046 
010146 
010246 
013737 
052737 
005000 
012702 

012701 
007322 
062700 
077104 



160100 
160140 
160200 
160240 
160300 
160340 
175400 
175440 
175500 
175540 
175600 
175640 
175700 
175740 



000004 



177774 
177741 
001252 
000001 

002000 
000012 

000001 

056044 
000000 
000010 



172352 

050752 
000001 

120000 

010000 

000002 



172352 
177572 



I0PV02 
I0PVO3 

iapvo4 

I0PVO5 
I0PV06 
I0PV07 
I0PV08 
I0PV09 
lOPVlO 
lOPVll 
I0PV12 
I0PV13 
I0PV14 
I0PV15 

lOPIIT: 



11: 



201: 



056056 056150 2S«: 



.EVEN 

I0P$TR. 
lOPUR. 
lOPITR. 
iaP*TR, 
I0P*TR. 
IGPnR. 
lOPnR. 
I0P*TR. 
lOPJTR. 
lOPITR. 
lOPITR. 
IOP*TR, 
IOP*TR, 
lOPnR. 

MOV 
MOV 
MOV 

MOV 

ASH 

BIC 

ADD 

BITB 

BNE 

BIS 

MOV 

BIT 
BNE 
ADD 
JSR 
CLR 
MOV 
MOV 
CMP 
RTI 
.UORD 



160100 
160140 
160200 
160240 
160300 
160340 
175400 
175440 
175500 
175540 
175600 
175640 
175700 
175740 

Rl. ISP) 
RO, ;SP) 
a4(.sP).Rl 

Rl.RO 

#-4.R0 

#tC36.R0 

«$DDUO.RO 

«6ITOO.(R0) 

1» 

«2000.R1 
12(R1),R0 

«1.R0 
20$ 

«25I.R0 

PC.aCRO) 

lOCRl) 

(SP)».RO 

(SP)».R1 

(SP)*,(SP)* 

NOTST. UT.LCK. 



SAVE GPRS 

GET LOU RANGE ADDRESS OF TPRO FROM 
INTERRUPTING lOP. 

DETERMINE WHICH IQP INTERRUPTED 
MASK OFF BITS <4:1> 
GET DESCRIPTOR WORD 
IS THE IQP IN THE HIGH RANGE? 

BOOST IT UP TO HIGH RANGE 

GO FIND OUT WHAT IT WANTS TO DO 

FROM THE DATA IN TPR5 
MAKE SURE ITS NOT ODD 
UH OH. ITS ODD; BAIL OUT 
RO POINTS TO THE ROUTINE 

INFORM K2 THAT UE ARE DONE 
RESTORE REGISTERS 



;FAKE A RETURN FROM TRAP 
TST.ST. ARBTPR. Q«HIT 



:TEST THAT SHARED MEMORY CAN BE ACCESSED FROM THE QBUS USING THE LOCK 
: INSTRUCTIONS 



WT.LCK: MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
CLR 
MOV 

;INIT 4KU BLOCK 
MOV 

1$: .WORD 
ADO 
SOB 



;SAVE VALUE IN KIPAR5 
iSAVE REGISTERS 



a#KIPAR5,-(SP) 
RO.-(SP) 
Rl.-(SP) 
R2,-(SP) 
L0ULIM.8«KIPARS 

«i.a«rffRO 

RO 

#120000. R2 

OF SHARED MEMORY WITH PATTERN 000000 TO 007776 
«40%.,R1 
7322 
#2,R0 

Rl,l$ :L00P CONTROL 



J POINT TO SHARED MEMORY 
•TURN ON MMU 
INITIALIZE RO 



***TEST URTLCK INSTRUCTION 



N±4 

KXJll-CA FUNCTIONAL TEST 
16/18/22 BIT HEMORY SIZER 
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6725 056126 

6726 056134 

6727 056136 

6728 056140 

6729 056142 

6730 056146 
6731 

6732 

6733 056150 

6734 056154 

6735 056156 

6736 056160 

6737 056162 

6738 056170 

6739 056176 

6740 056202 
6741 

6742 
6743 
6744 
6745 
6746 
6747 
6748 

6749 056206 

6750 056210 

6751 056212 

6752 056220 

6753 056222 

6754 056224 

6755 056226 

6756 056232 
6757 

6758 056234 
6759 

6760 056234 

6761 056240 

6762 056244 

6763 056252 
6764 

6765 056260 

6766 056264 

6767 056266 

6768 056270 
6769 

6770 056272 
6771 

6772 056274 

6773 056500 

6774 056304 
6775 

6776 056306 
6777 

6778 056306 

6779 056310 

6780 056512 

6781 056316 



042737 
012602 
012601 
012600 
012637 
000207 



013746 
010046 
010146 
010246 
013737 
052737 
012701 
012702 



007222 
077102 
042737 
012602 
012601 
012600 
012637 
000207 



013746 
013746 
012737 
012737 

106427 
005711 
001376 
000401 

0226P6 

012637 
012637 
000207 



010046 
010146 
013746 
013746 



000001 177572 



172352 



172352 



050752 
000001 
010000 
120000 



172352 
177572 



000001 177572 



172352 



000110 
000112 
056272 
000340 

000000 



000110 
000112 



000112 
000110 



BIG *l.a«tf«0 

MOV CSP)*.R2 

MOV CSP)*.R1 

MOV (SP)*.RO 

MOV (SP)*.a«KIPAR5 

RTS PC 

{NOW TEST THE TSTSET LOCK INSTRUCTION 

TST.ST: MOV a#KIPAR5. (SP) 

MOV RO.-CSP) 

MOV Rl.-(SP) 

MOV R2,-(SP) 

MOV L0ULIM.aH<IPAR5 

BIS «1.3«MMR0 

MOV *4096..R1 

MOV *120000,R2 



OFF THE MW' 



RESTORE KIPAR5 



jSAVE VALUE IN KIPAR5 
;SAVE REGISTERS 



POINT TO SHARED MEMORY 
TURN ON MMU 



WRITE AN INCREMENTING PATTERN TO SHARED r€MORY STARTING 
AT VIRTUAL LOACTION 120000 WHICH IS INITIALIZED WITH THE 
VALUE 120000. THE TSTSET INSTRUCTION WILL READ THE VALUE 
000000 FROM VA 120000. IT WILL THEN OR THE LSB =1 AND 
WRITE IT BACK OUT. THE RESULT WILL BE THAT THE DATA IN 
EACH VIRTUAL ADDRESS - ITSELF ♦I 



4$: .WORD 
SOB 
BIC 
MOV 
MOV 
MOV 
MOV 
RTS 

ARBTPR: ;LOOP 
:UILL 
MOV 
MOV 
MOV 
MOV 
POINTS TO 
MTPS 
TST 
BNE 
BR 



7222 

R1.4* 

#l,a#MMRO 

CSP)*.R2 

CSP)*,R1 

(SP)*,RO 

CSP)*,a*KIPAR5 

PC 



****TEST TSTSET INSTRUCTION 
LOOP CONTROL 
OFF THE MMU 



; RESTORE KIPAR5 



ON READING TPRO UNTIL IT TURNS TO ZERO. THE LOCAL Jll 
ALSO BE ACCESSING THE TPR FILE, MAKING SURE NO NXMS OCCUR 



a#110.-CSP) 

ani2.-csp) 

»2*.S«110 
«340.9«112 
TPRO OF THE KXJll 
«0 
(Rl) 
II 
3» 

! COMES HERE ONLY IF KXJll UNDER 



:R1 



;SAVE VECTOR 
:NEW HANDLER 
UNDER TEST 

; LOWER INTERRUPT LEVEL 
;IS Rl ZERO YET? 



2» : CMP 
; NORMAL EXIT 
3»: MOV 
MOV 
RTS 



(SP)».(SP)» 

(SP)»,8#112 
CSP)*.a*110 
PC 



;MUST BE ZERO 
TEST HAS A FAILURE 
sFIX STACK 

:AND VECTORS 



AND INTERRUPTS VIA 110 



QIHIT: jTHIS ROUTINE WILL KEEP ON ACCESSING THE SHARED MEMORY CAUSING Q HITS 
sON THE KXJll-CA. 

- " " J SAVE REGISTERS 



000004 
000006 



MOV 
MOV 
MOV 
MOV 



RO.-CSP) 
Rl.-(SP) 
a*4,-(SP) 

a«6.-(SP) 



:SAVE NXM VECTOR 



B15 



KXJll-CA FUNCTIONAL TEST 
16/18/22 BIT MEMORY SIZER 
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6782 056322 


015746 


AA/\« 1 A 

000110 






6785 056326 


015746 


< 7'5TC'^ 

17255? 






6/84 05633^ 


Al '57T7 


AC^^OO 

056422 


/WM 1 A 




6785 056340 


Af '57T7 


056412 


AA«W\^ 

wyw4 




6786 05654O 


A1 '^7T7 

012/3/ 


AAATAA 


/www 




6787 056354 


Al T7T7 

013 /3 / 


050 /52 


X /233c 




O'OO 05o3C>£ 


vDc / 3 / 


UWWX 


1 77s;70 
X / tjld 




£.7aQ ACXT^A 

0/07 05o5'0 




uuuwu 








Ulc /W 






Xr : 




Ulc /vl 


A« AAAA 

uxww 








AACOOA 






■>t • 


0/73 UjOAUD 


rt77 1 rtO 

U/ /iUc 










VIA/ 1 /I 








<;7Qe AC|kA13 








<ti • 
Dt : 












tiiyi UjO*I1c 


ftl 3777 


OAOOOO 
v*ryww 


X / ^00£ 




XL70A nCAA9h 


WWW 


















DOW VjO^CC 








Pt • 

Ct • 




Vic I XO 


O^AA'^0 
VjO*»Ov 






OOVc V30*c0 


WvWc 










vxcoo 1 


X ' COjC 




^1 • 

Jt • 




UXcOO 1 


0001 1 0 








VX£O0 f 


OOOOOfi 






UVVV V Jv 1 • f 


Ol?fe37 

VXCWw r 


000004 






AA07 O'^Ad'tn 


vXCOvX 








&AAB 


vXcOvv 










ndP7'^7 

yj'fc 'Of 


000001 


1 77S7P 




AA 1 n n^AAA? 










AA1 1 
ooxx 












000307 






NOTST- 


AA1 








t 


AA1 A 




















f^Alft 6^A7A 


1 OOOOO 

X WWA/ 








ftAI 7 0'k/%A79 

DOi. f V JO"t f £ 


OOOOO? 

vlA/vvC 








(kAIA O^AA7A 
DOXO vjO*»f*t 










f;AiQ nsAA7d 


001 AOP 
WXOvC 








ftA9n 0*tfiA7A 


000000 

WVAA/V 








DOcX \JjOJ\J\J 


OOOOOO 








DO£C v^Q^vc 


OOOOOO 


090OOO 






Owe J v^O^vO 


01 OOOO 
vXVAA/V 












1 001 An 






6825 










6826 056514 








KGIT07: 


6827 056514 


001602 








6828 056516 


OOOOOO 








6829 056520 


OOOOOO 








6830 056522 


OOOOOO 


030000 






6831 056526 


004000 








6832 056530 


000030 


000160 







SAVE VECTOR 
SAVE KIPAR5 
rCU HANDLER 
KEU NXn HANDLER 

jPirr LOU END OF SHARED MEM IN KIPAR5 
;TURN ON SHWtED MEMORY 
;ALLOU INTERRUPTS 



flOV a#110.-(SP) 
MOV aOKIPARS.-CSP) 
MOV «2$.3»110 
MOV «6(.9»4 
MOV «PR7,»>6 
MOV LOULIM.a«KIPARS 
BIS »1.3«MMR0 
MTPS #0 
MOV «120000. RO 
MOV #4096.. Rl 
INC CRO)* 
SOB R1.5$ 
BR 1* 

: COMES HERE IF SHARED MEMORY TIME-OUT OCCURS. IF THIS HAPPENS 
.-THE OEVICE UNDER TEST IS HUNG. RESET IT AND LINK UP 
MOV #40000. aiOP ADR ; RESET THE lOP UNDER TEST 
HALT J******** ERROR HALT ********** 

: COMES HERE UHEN K2 INTERRUPTS ARBITER AFTER TESTING IS DONE 



:READ/MOO/URITE SHARED MEMORY 



MOV #3*,(SP) 
RTI 

MOV (SP)*.9«KIPAR5 

MOV CSP)*.8#110 

MOV CSP)*,a#6 

MOV CSP)*.8#4 

MOV (SP)*.R1 

MOV (SP)*,RO 

BIC 46ITO0.a«MMRO 

RTS PC 

RTS PC 



ALTER RETURN ADDRESS 
FIX UP STACK AFTER INTERRUPT 
RESTORE IT ALL 

RESTORE VECTORS 



sTURN OFF MMU 



.UORO KGIT06 
.UORD <Q8MD1!UP> 
.UORO 2 

; CHAIN TO TRANSFER FROM SHARED MEMORY TO KNOUN GOOD lOP 

< C ARA ! C ARB! COP! MODE > 

.WORD 0 ;SHAREO MEMORY SEGMENT 

.UORO 0 iSHAREO OFFSET 

<K2nEn!UP>. 20000 

40%. 

<SURQ !HM> . <CTC ! TRUU! INTLV> 

J CHAIN TO TRANSFER FROM KNOUN GOOD lOP TO SHARED MEMORY 

<CARA!CARB!COP!MOOE> 

.WORD 0 jSHAREO MEMORY SEGMENT 

.UORO 0 : 

<K2MEM!UP>. 30000 

2048. 

<SURQ ! HM> . <TRUU ! INTLV ! FLIP> 



Ci5 



XXJU-CA FUNCTIONAL TEST MACRO Y05.02 

0-BUS INTERRUPT (QIR) SERVICE ROUTINES 
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6636 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 

6661 

6662 

6863 

6664 

6665 

6666 

6667 

6666 

6669 

6870 

6871 

6872 

6873 

6874 

6675 

6676 

6677 

6678 

6679 

6680 

6661 

6862 

6883 

6884 

6685 

6666 

6667 

6668 

6689 

6890 

6891 

6692 



056534 
056540 
056542 
056544 
056550 
056554 
056562 
056570 
056572 
056600 



056602 
056606 
056612 
056614 
056620 
056624 
056626 

056630 
056634 
056636 
056640 

056642 
056646 
056650 

056652 
056652 

056654 
056656 
056662 
056666 
056670 
056676 
056700 



020627 
101044 
010046 
013746 
013746 
012737 
012737 
000404 
052766 
000002 



013700 
005160 
000240 
012637 
012637 
012600 
000412 

020627 
101006 
000005 
000405 

020627 
101001 
000401 



000002 

010146 
013701 
105761 
100375 
112761 
012601 
000002 



SBTTL Q BUS INTERRUPT (QIR) SERVICE ROUTINES 

******************************************************************** 

♦ NOTE: THE Q-BUS INTERRUPT SERVICE ROUTINES HAVE BEEN REVISED TO ♦ 

♦ COMPARE THE STACK POINTER WITH 1100. IF THE STACK POINTER IS • 

* HIGHER THAN 1100, UE ASSUME APT IS IN THE LOAD PRXESS AND THE ♦ 

* ROUTINE WILL SEND A BREAK TO THE lOP BEFORE RETURNING TO THE 

• LOADER. IF APT IS NOT LOADING. THE INTERRUPTS UILL ♦ 

* BE SERVICED. JEANELL CUNNINGHAM. 02 MAY 1984. * 
******************************************************************** 

J»ESE ROUTINES ARE EXECUTED IN THE ARBITER PROCESSOR 
IN RESPONSE TO ANY OF THREE Q -REQUESTS: 

1. (QIRV) -- DO NOTHING. JUST DISMISS. 

2. (QIRVl) -- EXECUTE BUS-RESET AND DISMISS. 

3. (QIRV2) -- URITE LAST WORD IN NON-ARBITER OUAL-PORT-RAM(S). 



001100 




QREQ2: 


Ctff> 


SP. #1100 


IS APT LOADING? (SP GREATER 








6HI 


OFFSBC 


IF SO, DON'T DO THIS 








MOV 


RO.-(SP) 


SAVE RO. 


000004 






MOV 


a#4.-(SP) 


SAVE ERROR VECTOR... 


000006 






MOV 


a#6.-(SP) 




056572 


000004 




MOV 


»i«.aM 


...CHANGE IT... 


000340 


000006 




MOV 


»340.a«6 










BR 


41 


i...AND SKIP NEXT 2. 


000002 


000002 


11: 


BIS 


«2.2(SP) 


, ON BUS-ERROR. SET "V"... 








RTI 




...AND DISMISS. 



052002 
000036 

000006 
000004 



001100 



001100 



ACCESS (READ-MOO-URITE) WORD 15 IN Q-BUS DPR UINDOU. 



41: 
21: 

31: 



QREQl: 



QREQ: 



OFFSBC: 



MOV 
COM 
NOP 
MOV 
MOV 
MOV 
BR 

crf» 

BHI 

RESET 

BR 

CMP 
BHI 
BR 



RTI 



056730 
000004 

000131 000006 



SAYYES: MOV 
MOV 

1$ : TSTB 
BPL 
MOVB 
MOV 
RTI 



lOPAOR.RO 
36(R0} 

(SP)>.9«6 
(SP)>.8M 
(SP)».RO 
SAYYES 

SP. #1100 
OFFSBC 

SAYYES 

SP, #1100 

OFFSBC 

SAYYES 



R1,-(SP) 
SLU2.R1 
4(R1) 
1« 

#'Y,6CR1) 

(sp5*.ri 



; LAST DPR UORD INDEX. 
! DPR<15> CPU 

; RESTORE ERROR VECTOR. 

! RESTORE RO. 

: SEND 'Y OVER SERIAL LINE AND DISMISS. sFXBJC 

IS APT LOADING? (SP GREATER THAN 1100?) 
IF SO. SEND BREAK TO lOP. 
BUS-RESET. 

SEND 'Y OVER SERIAL LINE AND DISMISS. ;FX6JC 

IS APT LOADING? (SP GREATER THAN 1100?) 
IF SO. SEND BREAK TO lOP. 

SEND 'Y OVER SERIAL LINE AND DISMISS. jFX8JC 



DISMISS INTERRUPT. 
SAVE Rl 

POINT TO SECOND SERIAL LirC. 
UAIT FOR READY. 

SEND A 'Y FOR "YES. I DID IT". 
RESTORE Rl. 

AND DISMISS INTERRUPT. 



{FX6X 
{FX6X 
jFX6X 
sFX6JC 
:FX8X 
;FX6JC 
;FX8X 



D15 



KXJll-CA FUNCTIONAL TEST MACRO Y05.02 

REMOTE LOADER AND VIRTUAL TERMINAL (V4.0). 



Thursday 03 Apr-d6 14:11 Page 184 



6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 



056702 
056704 
056710 
056716 
056724 

056726 
056730 
056732 
056734 
056736 
056740 
056742 
056744 
056746 
056750 
056752 
056754 
056756 
056760 
056762 

056764 
056766 



056770 
056774 
057000 
057004 
057006 
057012 
057014 
057020 
057022 
057026 
057030 
057034 
057040 



001100 



000472 

013700 056730 
043760 056764 
053760 056766 
000461 

177560 
176500 
000000 
176500 
176510 
176520 
176530 
176540 
176550 
176560 
176570 
176600 
176610 
176620 
176630 

177400 
164000 



S8TTL REMOTE LOADER AND VIRTUAL TERMINAL (V4.0). 

SUBROUTINES TO LIN< TO AND CONTROL A TARGET SBC 11 CPU. 
TARGET MACHINE fVSl BE CAPABLE OF EXECUTING IT'S OWN MJCRO-COT 
CMACRO-(»T IN Til) AND MUST HAVE AT LEAST 16KU RAM AT ABSOLUTE 0. 

USP CHANGED FROM BUFR2 TO 1100 TO PREVENT TOTAL UIPE-OUT OF PROGRAM 
UHEN STACK RUNS AWAY. JEANELL CUTMINGHAM. 30 APRIL 1984. 
************************************************************************ 

USP-llOO 

ENTRY FROM 200G (AUTO-START UTOER XXDP OR APT). 



000004 
000004 



REMOTE: BR 
MOV 
BIC 
BIS 
BR 

SLUl: 177560 
SLU2: .WORD 
SLUADR: .WORD 
176500 
176510 
176520 
176530 
176540 
176550 
176560 
176570 
176600 
176610 
176620 
176630 

SPDMSK: 177400 
SPDSET: 164000 



LOAD 
SLU2,R0 
SPmiSK,4(R0) 
SPDSET. 4(R0) 
LOAD 



176500 
0 



NOP TO ENABLE SPEED CHANGER. 
*** 

♦** IF SPEED PROGRAMMABLE 

**» SET SPEED » 9600 (OR AS NEEDED). 



sFX8JC 



177560 = CONSOLE. 
DEFAULT SLU2 

176500 = MXVll PORT 1..DLV11-J PORT 0 
176510 " DLVll-J PORT 1 
176520 * DLVll-J PORT 2 



...175610 - DLVll-E. OR F OR WHATEVER. 
P8R BIT MASK (IF DC319 OLART. L*! 72). 
SET PBR 9600 (IF DC319 OLART. UjE 52). 



012706 
106427 
004737 
103015 
120027 
001003 
004737 
000767 
120027 
001002 
004737 
004737 
004737 



001100 
000000 
057672 

000032 

057774 

000100 

057646 
057646 
057702 



LINK (VIRTUAL TERMINAL) MODE. 

UHEN ECHOING DOT'S PROMPT, CONVERT a TO 38. 

IN ORDER TO DISTINGUISH SBC HALT (98) FROM MASTER HALT (8). 



LINK: 
1*: 



2$: 



3»: 
4$: 



MOV 

MTPS 

CALL 

BCC 

CMPB 

BNE 

CALL 

BR 

CMPB 

BNE 

CALL 

CALL 

CALL 



«USP.SP 
«0 

SBCIN 
4» 

R0.»32 
2i 

UPAMB 
U 

RO.»'S 
3» 

TTYOUT 
TTYOUT 
TTYIN 



; RESET STACK POINTER. 
: LOUER CPU. 



SBC'S MAILBOX COMMAND <tZ> ?? 
SKIP IF NOT... 

...ELSE. UPDATE ARBITERS COPY. 

SBC'S DOT PROMPT ?? 
SKIP IF NOT... 
...ELSE. ECHO IT TUICE (88). 



E15 
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6952 057044 

6953 057046 

6954 057052 

6955 057054 

6956 057060 

6957 057062 

6958 057066 



103355 
120027 
001003 
004737 
000747 
004737 
000744 



000033 
057522 
057636 



5»: 



BCC 

CMP8 

BNE 

CALL 

BR 

CALL 

BR 



1< 

R0.«33 
5« 
6RK 
1» 

SBCOUT 
1$ 



<ESC> ?? 

SKIP IF NOT... 

...ELSE. SEND BREAK (SBC HALT). 



s LOOP FOREVER. 



r 



15 
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6960 

6961 

6962 

6963 

6964 

6%S 

6966 

6%7 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 

7015 

7016 



057070 
057074 
057102 
057104 
057112 
057120 
057126 

057134 
057140 
057144 
057150 
057154 
057160 



057164 
057170 
057174 
057200 
057204 
057210 
057212 
057216 
057224 
057230 

057234 
057236 
057240 
057242 
057246 
057252 
057254 
057256 



057262 
057266 

057272 
057276 
057302 



106427 


000340 




I 


lOAO: 


MTPS 


•PR7 


027727 


a 'va AAA 

121000 


000002 






A&^% 

CMP 


3100. 4RTI 


001406 










BEQ 


1( 


012737 


002542 


000100 






MOV 


^DISMISS . 9^100 


012737 


000300 


AAAa A^ 

000102 






MOV 


v300. 99102 


012737 


043002 


000034 


1*: 


MOV 


#*TRAP.a«34 


012737 


000340 


000036 






MOV 


v540.a9o6 


012706 


001100 




RELOAD: 


MOV 


*USP,SP 


104401 


060430 








TYPE 


.UAITl 


004737 


057522 








CALL 


BRK 


004737 


057736 








CALL 


UAITOO 


004737 


060264 








CALL 


SETPSU 


004737 


060242 








CALL 


SETREGS 



012746 
012746 
012746 
016602 
004737 
000407 
017602 
062766 
004737 
004737 

005316 
100365 
005002 
004737 
004737 
022626 
012602 
004737 



012702 
004737 

012700 
004737 
004737 



077416 
060550 
000125 
000004 
057406 

000002 
000002 
057414 
057744 



057422 
057736 



060276 



001100 
060304 

000120 
057636 
057752 



000002 



REMOTE LOADER - SET UP THE ARBITER AND GET IN TOUCH UITH THE SBC. 

RAISE CPU. 
BEVNT DISMISSED ?? 
SKIP IF SO. 
NO. SET TO DISMISS... 
...AT PRI 6. 
SET TRAP VECTOR... 
...FOR SYSHAC "TYPE" CALLS. 

RESET STACK POINTER. 
"UAIT..." 

BREAK TO THE SBC... 
...AND WAIT FOR HIS 9. 
RAISE PSU 

SET MMU AND MAP-RAM OFF. 

OK. LOAD AND START THE IMAGE LOADER VIA SBC'S DDT. 
LOAD SEQUENCE REQUIRES 21. CHARS PER UORD TRANSFERRED. 

_AODR /_DATA,<SP>_DATA_<LF> 
WHICH YIELDS AN EFFECTIVE LOAD RATE OF 45. WORDS/SEC AT 9600 BAUD. 

PUSH TARGET LOCAL STARTING ADDRESS... 
...LOADER SOURCE ADDRESS... 
...AND UORD COUNT. 
TARGET ADDRESS *> R2. 
XMIT ADDRESS<SLASH>. 

1*: MOV a2CSP).R2 ; NEXT DATA WORD «> R2. 

, . .AND BUMP POINTER. 
XMIT DATA<LF>. 

2*: CALL WAIT40 ; WAIT FOR <SP> AFTER EACH... 

...ADDRESS IS OPENED IN THE SBC. 
BUMP WORD COUNT... 
...AND LOOP 'TIL ALL WORDS GONE. 

TERMINATE DATA SEQ WITH <CR>... 
...AND WAIT FOR OOT READY. 
OK, DISCARD WC AND SRC POINTER. 
POP TARGET LOCAL START ADOR «> R2. . . 
...SET HIS PC - (R2)... 

THESE TWO LINES ADDED TO INSURE VALID STACK POINTER IN SBC BEFORE SENDING 
PROCEED COMMAND. JEANELL CUNNINGHAM. 7-JUN-84 

MOV #USP.R2 ; PUT USP INTO R2 TO SEND TO SBC 

CALL SETSP J ... SET SBC SP TO (R2) 

MOV #'P.RO 5...AFC XMIT THE P(ROCEED) COMMAND. 

CALL SBCOUT 

CALL UAITP ; WAIT FOR PCROCEEO) ECHO. 

NOW. THE TARGET MACHINE IS EXECUTING THE IMAGE LOADER. 
IF KXT. HE'LL TRY A DMA LOAD FIRST. 



MOV 


*$LSTRT.-(SP) 


MOV 


#$LOAO,-CSP) 


MOV 


**LSIZE,-(SP) 


MOV 


4(SP).R2 


CALL 


OPNADR 


BR 


2i 


MOV 


a2CSP).R2 


ADD 


#2,2CSP) 


CALL 


DATALF 


CALL 


WAIT40 


DEC 


CSP) 


BPL 


!♦ 


CLR 


R2 


CALL 


DATACR 


CALL 


WAITOO 


CMP 


CSP)*.(SP)* 


MOV 


CSP)*.R2 


CALL 


SETPC 



057306 004737 057672 



U: 



CALL SBCIN 



WAIT FOR SOMETHING TO HAPPEN. 



c 



KXJll-CA FUNCTIONAL TEST MACRO YOS.Oa Thurs<toy 03-Apr 86 14:11 Page 187 

REMOTE LOADER AND VIRTUAL TERMINAL (V4,0). 



7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 



057312 
057314 
057320 
057322 
057326 
057330 
057332 

057334 
057336 
057340 
057342 
057346 
057350 
057354 
057356 
057362 
057366 
057370 
057374 

057376 
057402 



057406 
057412 
057414 
057420 
057422 
057426 
057432 
057436 
057440 
057444 
057446 
057450 
057452 
057454 
057460 
057462 
057466 
057472 
057474 
057476 
057500 
057504 
057510 
057512 
057514 
057520 



103375 
120027 
001426 
120027 
001402 
000000 
000700 

005003 
005002 
112200 
004737 
005203 
032703 
001002 
104401 
020227 
101764 
004737 
103375 

104401 
000137 



012746 
000402 
012746 
000402 
012746 
012703 
012704 
000402 
012704 
005001 
006302 
006101 
077403 
062701 
010100 
004737 
004737 
103375 
120001 
001404 
104401 
000137 
077325 
012600 
004737 
000207 



000033 
000034 



057636 
003777 

060444 

051507 

057672 



060450 
056770 



000057 

000012 

000015 
000006 
000001 

000003 



000060 

057636 
057672 



060526 
057134 



057636 



BCC 3* 

CMPB R0.«3 

BEO 8$ 

CMPB R0.#34 

BEQ 4$ 
HALT 

BR RELOAD 

4$: CLR R3 

CLR R2 

5(: nOVB (R2}*.R0 

CALL SBCOUT 

INC R3 

BIT *3777,R3 

BNE 6$ 

TYPE .KMARK 

6$: CMP R2.«LASTAD«1 

BLOS 5i 

7i: CALL SBCIN 

BCC 7i 

8*: TYPE .LOADED 

JMP LIfi< 



J IF <33> DMA LOAD UAS SUCCESSFUL... 

;...SAY SO AND GET OUT. 

; IF <34> DMA FAILED OR NOT SUPPORTED. 

START A SERIAL LOAD. 
: U-T F !!! 



: INIT IKU MARKER... 
:...AND ADDRESS POINTER. 

; XFER A BYTE. 

: BUMP UORD COUNT. 

: IKW DONE ?? 

5 SKIP IF NOT. 

; ELSE, MARK IT. 

: LOOP 'TIL DONE. 

: WAIT FOR DONE ACKNOWLEDGE <34>. 



"SBC LOADED" 
ENTER LINK MODE. 



SUBROUTINE TO TRANSMIT ASCII ADDRESS AND/OR DATA FROM R2. 
XMIT AD0R<SLASH> TO OPEN ADDRESS FOR INPUT. 
XMIT DATA<LF> TO STORE DATA. AND OPEN NEXT ADDRESS. 
XMIT DATA<CR> TO CLOSE UORD AND TERMINATE DATA SEQUENCE. 



OPNADR: MOV 
402 

DATALF: MOV 
402 

DATACR: MOV 
MOV 



1*: 
2$: 



31; 



At: 



MOV 
402 
MOV 
CLR 
ASL 
ROL 
SOB 
ADO 
MOV 
CALL 
CALL 
BCC 
CMPB 
BEQ 
TYPE 
JMP 
SOB 
MOV 
CALL 
RETURN 



*'/.-(SP) 

#12,-(SP) 

#15,-(SP) 

«6.R3 

#1.R4 

«,R4 
Rl 
R2 
Rl 

R4.2» 

#'0.R1 

Rl.RO 

SBCOUT 

SBCIN 

3$ 

RO.Rl 
41 

.EKOERR 

RELOAD 

R3,l* 

(SP)*,RO 

SBCOUT 



SUBROUTINE TO SEND "BREAK* 



: TERMINATE WITH SLASH... 

a • ■ • OR ■ ■ • 

J... LINE FEED... 

I • > • OR • ■ a 

RETURN. 

! IN ANY CASE, XMIT 6 DIGITS... 
S...THE MSD BEING JUST 1 BIT... 

J... AND 3 BITS EACH FOR THE REST. 
: ASSEMBLE IN Rl. 



s POTATE DTGIT TO Rl<2:0>.. 
;...MAKE ASCII. 

J XMIT NEXT CHAR. 

: ECHO CORRECT 7? 
: BR IF SO. 

8 ELSE. "ASCII ECHO ERROR". 
,-...AND RETRY. 

; XMIT TERMINATOR. 

i AND RETURN. 

TO THE SBC. 



H15 
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7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 



057522 
057524 
057530 
057534 
057542 
057550 
057554 
057556 
057564 
057570 
057572 
057574 
057576 
057600 
057602 
057606 
057614 
057616 
057624 
057632 
057634 



057636 
057640 
057644 
057646 
057650 
057654 
057660 
057662 
057666 
057670 



057672 
057674 
057700 
057702 
057704 
057710 
057712 
057714 
057716 
057720 
057724 
057730 
057732 
057734 



057736 
057742 



010546 






9 

BRK: 


MOV 


R5.-(SP) :SAVE OLD R5 VALUE ON STACK 


013705 


056730 






MOV 


SLU2.R5 

2(R5).R0 J 




11£500 


000002 






MOVo 


DUrffY REAO^CaEAR RECEIVER). 


052765 


000001 


000004 




OTP 

BIS 


*1.4(R5) i 


SET "BREAK " • » . 

TRANSMIT TWO CHARACTERS FOR TIMING. 


112765 


000060 


000006 




MOVo 


#'0.6(R5) i 


105765 


000004 




4 4 A 

11$: 


T5TB 


4(R5) 


UAIT FOR READY. 


100375 








BPL 


11$ 




112765 


000060 


000006 




MUVd 


*'0.6(R5) 


SEND SECOND. 


105765 


000004 




22$ : 


TCTD 
ISIO 


4(R5) 


UAIT FOR READY. 


100375 








BPL 


22$ 




005001 








LLK 


Rl 


UAIT VALUE 


105715 






1$: 


TCTD 


(R5) 


\ 


100412 








OMT 

Drll 


3$ 


> . . . AND UAIT FOR A RESPONSE . 












Rl.l$ 


; / 


104401 


060514 






TYPE 


.HUNG 


! NO LUCK. TELL THE MAN • ! 


026627 


000002 


057070 




CMP 


2(SP).#L0AD 


; CALLED FROM LOAD ?? 


103403 








BLO 


3$ 


; ^ST RETURN IF NOT... 


012766 


057134 


000002 




MOV 


«REL0A0.2(SP) 


J... ELSE. RETRY. 


042765 


000001 


000004 


3$: 


BIC 


#1.4(R5) 


J ENSURE "BREAK" IS OFF. 


012605 








MOV 


(SP)*.R5 


[RESTORE R5 :;HE808 


000207 








RETURN 







010546 
013705 
000403 
010546 
013705 
105765 
100375 
110065 
012605 
000207 



010546 
013705 
000403 
010546 
013705 
105715 
100007 
105715 
100005 
116500 
042700 
000261 
012605 
000207 



012746 
000402 



:HE808 

;FX9X 

:FX8JC 
:FX8JC 
;FX8JC 
;FX8JC 
;FX8JC 
;FX8JC 
;FXC 



CHARACTER OUTPUT TO TARGET SBC OR TTY: 



056730 



056726 
000004 

000006 



SBCOUT: 


MOV 


R5.-(SP) 


:SAVE OLD R5 VALUE 




MOV 


SLU2.R5 






BR 


TTYZ 




TTYOUT: 


MOV 


R5,-(SP) 


;SAVE OLD R5 VALUE 




MOV 


SLU1.R5 




TTYZ: 


TSTB 


4(R5) 






BPL 


TTYZ 






MOVB 


R0.6(R5) 


: OUTPUT FROM RO.. 




MOV 


(SP)*,R5 


{...RESTORE R5.., 




RETURN 


5... AND RETURN. 



CHARACTER INPUT FROM TARGET SBC OR KBD: 



056730 
056726 



000002 
177600 



SBCIN: 

TTYIN: 
TTYX: 



1$: 



MOV 

MOV 

BR 

MOV 

MOV 

TSTB 

BPL 

TSTB 

BPL 

MOVB 

BIC 

SEC 

MOV 

RETURN 



R5.-(SP3 

SLU2,R5 

TTYX 

R5.-CSP) 

SLUJ .R5 

(R5) 

1$ 

(R5) 
1$ 

2(R5).R0 
#tC177.R0 

(SP)».R5 



;SAVE XD R5 ON STACK 



;HE808 
JHE808 

:HE808 

;HE808 
:HE808 



NO CHAR ("C" IS CLEAR). 
TEST IT AGAIN IN CASE IT SET ON BREAK 
YES ... UAS SET ON A BREAK. SO RETURN 
VALID CHAR SO INPUT TO RO... 
...STRIP... 
SET "C" 

RESTORE STACK }HE808 
...AND RETURN. 



. ;FXBJC 
.jFXBJC 



000100 



SUBROUTINES TO UAIT FOR SPECIFIC RESPONSE FROM SBC. 



UAITOO: MOV 
402 



#'a.-(SP) 



UAIT FOR GOT PROMPT <100>. 



115 
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7139 

714C 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7146 

7149 

-iSO 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 



057744 

057750 
057752 
057756 
057762 
057764 
057766 
057770 
057772 



057774 
057776 
060002 
060006 
060010 
060016 
060022 
060026 
060032 
060034 
060036 
060040 
060042 
060044 
060050 
060052 
060056 
060060 

060062 
060066 
060070 
060074 
060100 
060104 
060106 
060112 
060116 
060122 
060126 
060130 
060136 
060140 
060144 
060150 
060154 
060156 
060160 
060164 
060166 
060172 



012746 000040 
000402 

012746 000120 

004737 057672 

103375 

120016 

001373 

005726 

000207 



UAIT40: 


nOV 


9W, -ISrJ 








UAITP: 


MOV 


#'P.-CSP) 


14. 
19 I 




ooLlii 




BCC 


1$ 




CMPB 


RO.CSP) 




BNE 


1* 


2i: 


TST 


CSP)* 




RETURN 





UAIT FOR SPACE CHAR <040>. 
WAIT FOR PCROCEED) ECHO <120>. 



SUBROUTINE TO UPDATE ARBITERS COPY OF THE APT MAILBOX. 
CALLED IN LINK MODE IF/UHEN <tZ> IS RECEIVED FROM SBC. 



UPAMB REVISED FOR KXTFX9 TO INCORPORATED CHECKSUMS. 

SAVE R5 

TELL SBC UE'RE READY BY . . , 
... ECHOING <tZ>. 

POINT TO SCRATCH MAILBOX 
SET BYTE COUNT. 
AND CLEAR ERROR FLAG. 
KEEP- ALIVE TIMER. 
UAIT FOR A BYTE . . . 

... WITHIN REASON. OF COURSE 
. . . TIMED OUT ... SEND NACK. 
GET BUFFER CONTENTS AND FLAGS. 
BRANCH IF NO ERROR. 
SET ERROR FLAG. 
STUFF TEMPORARY MAILBOX... 
... AND CONTINUE UNTIL DONE. 
; THE CHECKSUM. 
WAS THERE A RECEIVER ERROR? 
YES. SEND NACK. 
BYTE COUNT IN R5. 
STARTING ADDRES IN R4. 
CLEAR ACCUMULATOR FOR CHECKSUM. 
GET A BYTE IN R3. 
STRIP OFF HIGH BYTE. 
OPERATE ON THE BYTE. 



LOOP UNTIL DONE. 

DOES IT CHECK? 

NO, SEND NACK. 

YES, UPDATE REAL MAILBOX 

. • • s ■ uoro}s • • • 



010546 






UPAMB: 


MOV 


R5.-(SP) 


013705 


056730 






MOV 


SLU2,R5 


105765 


000004 






TSTB 


4(R5) 


100372 








BPL 


UPAMB 


112765 


000032 


000006 




MOVB 


*32.6(R5) 


012700 


060214 






MOV 


*TMPMAI,RO 


012701 


000021 






MOV 


#17., Rl 
UPERR 


005037 


060240 






CLR 


005002 






U: 


CLR 


R2 


105715 






2i: 


TSTB 


CR5) 


100402 








BMI 


3* 


077203 








SOB 


R2.2$ 


000451 








BR 


7$ 


016502 


000002 




3$: 


MOV 


2CR5).R2 


100002 








BPL 


4$ 


005237 


060240 






INC 


UPERR 


110220 






41: 


MOVB 


R2.CR0)* 


077114 






; NOU 


SOB 
CHECK FOR 


Rl.l* 

ERROR AND COMI 


005737 


060240 






TST 


UPERR 


001037 








BNE 


7* 


012701 


000020 






MOV 


#16.. Rl 


012704 


060214 






MOV 


#TMPMAI.R4 


005037 


060236 






CLR 


ARBSUM 


112403 






5*: 


MOVB 


(R4)*.R3 


042703 


177400 






BIC 


#tC377,R3 


060337 


060236 






ADO 


R3. ARBSUM 


106337 


060236 






ASLB 


ARBSUM 


005537 


060236 






ADC 


ARBSUM 


077112 








SOB 


R1.5» 


123737 


060236 


060234 




CMPB 


ARBSUM, RCOSUM 


001013 








BNE 


71 


012700 


060214 






MOV 


#TMPMAI,RO 


012701 


001166 






MOV 


#IMAIL.R1 


012702 


000010 






MOV 


#8..R2 


012021 






6$: 


MOV 


(R0)».(R1)* 


077202 








SOB 


R2.6I 


012700 


000006 






MOV 


#ACK.RO 


000402 








BR 


8$ 


012700 


000025 




7i: 


MOV 


«NACK,RO 


005037 


060240 




8$: 


CLR 


UPERR 



AND SEND ACK. 
SEND NACK 

aEAR ERROR FLAG BEFORE LEAVING. 



iFX9JC 
JFX9JC 
;FX9X 



.•FXAJC 
;FXAJC 
:FXAjC 
;FX9JC 
5FX9JC 
SFX9X 
!FX9JC 
[FX9JC 
iFX9JC 
;FX9JC 
JFX9JC 
;FX9JC 
iFX9JC 
iFX9JC 
!FX9JC 
;FX9JC 
iFX9JC 
JFX9JC 
!FX9JC 
;FX9JC 
;FX9JC 
JFX9JC 
;FX9JC 
;FX9JC 
;FX9JC 
;FX9JC 
SFX9JC 
;FX9JC 
;FX9X 
;FX9JC 
sFX9JC 
;FX9X 
{FX9X 
jFX9X 
jFX9X 
|FX9X 
jFX9X 
jFX9X 
|FX9X 



Jib 
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7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 



060176 
060202 
060204 
060210 
060212 

060214 
060234 
060236 
060240 



060242 
060246 
060250 
060254 
060260 
060262 
060264 
060270 
060274 
060276 
060302 
060304 



060310 
060312 
060314 
060316 
060322 
060326 
060330 
060332 
060334 
060340 
060344 
060350 
060354 
060356 
060362 
060366 



060370 
060402 
060414 
060420 
060424 



112103 
001414 
110300 
004737 
004737 
103375 
120003 
001766 
104401 
000137 
004737 
120027 
001373 
004737 
004737 
000207 



057636 
057672 



060526 
057134 
057672 
000040 

057422 
057736 



lv3'D3 




at • 






UATT FnP TIIAM<>ITT RPADY 












9i 




















012605 






MOV 


(SP)*.R5 


[RESTORE R5 




000207 






RETURN 




AND RETURN TO LINK ROUTINE. 


;FX9JC 






TMPMAI: 


.BLKU 


8. 


! SCRATCH PAIS MAILBOX. 


:FX9JC 


000000 




RCDSUM: 


.UORD 


0 


! LOU BYTE IS RECEIVED CHECKSUM. 


;FX9JC 






ARBSUM: 


.WORD 


0 


i ACCUMULATOR FOR COMPUTING CHECKSUM. 


;FX9X 






UPERR: 


.WORD 


0 


; ERROR FLAG FOR OVERRUNS. 


;FX9JC 






\ SUBROUTINES TO SET MMU. MAP-RAM. PSU. AND PC 








; IN PREPARATION FOR LOADING/STARTING THE SBC. 










.ENABL 


LSB 






01P701 


060370 


SETREGS 


: MOV 


#0MM.R1 


; MMU. . . 




00500P 






CLR 


R2 


DISABLED. 




004737 


060310 




CALL 


1* 






012701 

VAC r vx 


060402 




MOV 


MKX.Rl 


! PRIMARY CSR... 




005002 






CLR 


R2 


.-...DISABLED (MAP-RAM OFF). 




000412 






BR 


1* 






012701 


060414 


SETPSU: 


MOV 


WPS.Rl 


J PSU... 




012702 


000340 




MOV 


#340. R2 


!...PRI 7. 




000405 






BR 


1$ 






012701 


060420 


SETPC: 


MOV 


*0PC.R1 


s PC (SET IN R2 BY CALLER). 




000402 






BR 


1$ 






012701 


060424 


SETSP: 


MOV 


*0SP.R1 


; SP (SET IN R2 BY CALLER) 





INSURE THAT 



1*: 



2$: 



3*: 



4$: 



MOVB 
BEQ 
MOVB 
CALL 
CALL 
6CC 
CMPB 
BEQ 
TYPE 
JtV 
CALL 
CMPB 
BNE 
CALL 
CALL 
RETURN 



OCT" ECHOES THE CHARACTERS CORRECTLY. ;FX8JC 
(R1)*.R3 : SAVE BYTE IN R3 FOR COMPARE. 

3* ; IF ZERO. STRING IS DONE. 

R3.R0 ; BYTE TO RO FOR THE CALL. 

SBCOUT 
SBCIN 
2$ 

R0.R3 
1* 

.EKOEHR 
RELOAD 
SBCIN 
RO.MO 
3* 

OATACR 
UAITOO 



ECHO CORRECT? 

YES, CONTINUE ... 

ELSE. "ASCII ECHO ERROR" ... 

... AND GO TRY IT ALL AGAIN. 

OTHERUISE. UAIT FOR <SP> ... 



... AND SET VALUE FROM R2. 
UAIT FOR a. . . 
... AND RETURN. 



FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
FX8JC 
jFX8JC 
FX8JC 
FX8X 
FX8JC 



.DSABL LSB 

TEXT FOR MANIPULATING REGISTERS UNDER "DOT". 



067 


067 


067 


OMM 


067 


067 


067 


OKX 


122 


123 


057 


OPS 


122 


067 


057 


OPC 


122 


066 


057 


OSP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



'77777572/' 
'77777530/' 
RS/' 
•R7/' 
'R6/' 



OPEN mi SRO F/J. 

OPEN K2CSRD F/J. 
OPEN PSU. 
OPEN PC. 
OPEN SP. 
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r 



75^T 

icji 


























; DIRECTIONS AND STATUS TEXT. 


1 CJJ 
















ic JO 








WW 


UAITl: 


.ASCIZ 


<CR><LF>' UAIT...' 


7?S7 


OMiAAA 






007 


KHARK: 


.ASCIZ 


'K.'<7> 


7258 


060450 


056 


056 


111 


LOADED: 


.ASCII 


'..lOP LOADED' <7><CRLF> 


7259 


060466 


200 


040 


040 




.ASCIZ 


<CRLF>' USE <ESC> TO HAI 


7260 


060514 


111 


117 


120 


HUNG: 


.ASCIZ 


'lOP HUNG'<CRLF> 


7261 


060526 


101 


123 


103 


EKOERR: 


•ASCIZ 


'ASCII ECHO ERROR' <CRLF> 


7262 












.EVEN 





L, 



cr 
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7264 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

7272 

7273 

7274 

7275 

7276 

7277 

7278 

7279 

7280 

7281 

7282 

7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 



060550 
060552 
060554 
060556 
060560 
060562 



060564 
060570 
060572 
060576 
060604 
060612 
060614 
060620 
060626 
060634 
060640 
060644 
060646 
060652 
060660 
060666 
060670 
060674 
060700 
060704 
060706 
060714 

060716 
060720 
060724 
060730 
060732 



010706 
005746 
010600 
005040 
005700 
001375 



*********************************************************************** 

IMAGE LOADER FOR THE TARGET SBC. 

THE ASCII (ODT) LOADER STUFFS THIS ROUTINE INTO THE SBC 
AT THE TOP OF 16K. AND STARTS IT RUttONG AT PRI 7, 



DSABL 
(LOAD: 

1$: 



AMA 

MOV 
TST 
MOV 

aR 

TST 
BNE 



MAKE IT RELATIVE PIC. 



PC.SP 
-CSP) 
SP.RO 
(RO) 
RO 
1$ 



SET A STACK... 
. . .AND CLEAR FROM HERE DOUN. 



DMA LOADER. 



012700 


000144 




(DLOAD: 




#*SL0AD-.-6.R0 i 


\ 


060700 








ADO 


PC.RO s 


> SET A TRAP CATCHER . . . 


010037 


000004 






MOV 


RO.SM ; 


/ ...IN CASE CHIP IS DEAD. 


012737 


000340 


000006 




MOV 


<>PR7.a*6 




032737 


000340 


177524 




BIT 


«340.a«K2CSRC 


IS lOP IN STANDALONt? 










BEQ 


»SLOAO 


Tucki R iCT nn CPD TAi 1 nun 
.... 1 TfLH JUo 1 UU atlt LHL LUnU 


005037 


174454 






CLR 


a«CMDR 


CHIP RESET. 


012737 


000115 


174470 




MOV 


#115 9«MMR 


SET MASTER MODE. . . 


012737 


000074 


174454 




MOV 


M0!-;4.9«CHDR 


...aEAR lE'S... 


005037 


174446 






aR 


9«CHA1H 




012700 


000050 






MOV 


#2»-.-6.R0 


\ 


060700 








ADD 


PC.RO 


> SET CHAIN ADDRESS. 


010037 


174442 






MOV 


RO,a«CHAlL 


/ 


012737 


000240 


174454 




MOV 


«240.a«CMDR 


START 'EM UP... 


032737 


020000 


174456 


1$: 


BIT 


«P.a«STATl 


...AND WAIT FOR DO^E. 


001774 








BEQ 


If 




013700 


174456 






MOV 


9«STAT1.R0 


SAVE STATUS... 


005037 


174454 






CLR 


9#CMDR 


J...AND RESET CHIP. 


032700 


000001 






BIT 


*TC,RO 


, TERMINAL COUNT ?? 


001414 








BEQ 


tSLOAD 


, NO. DMA FAILED. 


112737 


000033 


177566 




MOVB 


«3.a#177566 


; YES. SEND DMA DONE <t[>... 


000431 








BR 


♦START 


J... AND THAT'S ALL THERE IS TO 


001602 






21: 


1602 




; CHAIN LOAD ARA. ARB, UC. AND 


100000 


000000 






100000. 


0 


i...SRC — Q-BUS ZERO... 


000000 


000000 






0. 0 




i...DST -- LOCAL ZERO... 


024644 








<LASTA0*2>/2 


(...RANGE -- O-LASTAD... 


000030 


001340 






30, 1340 


I...AND START CSOFT-REQ). 



M15 
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7T1 n 
f iifJ 














' ill 








i SERIAL (BYTE) 


LOADER. 




' He 














' Hi 








: EFFECTIVE LOAD RATE IS 480. UOROS/SEC AT 9600 BAUD. 


7T1 A 
1 il^ 














yJGMiio 








$SLOAD: aR 


RO : 


SERIAL LOAD FROM 0 TO LASTAD. 


1 iln UOVf*U 




1 77^5 




MOVB 


3*177562. Rl j 


DUMMY READ. 


1 il 1 UOv 


IL£ 1 il 




X • (30D 


MOVB 


«34.a»177566 ; 


SET© READY MARK <t\>. 


7»1 A A/iA7K3 
lilO yJVJiJC 


1 /V\7T7 






1*: TSTB 


3«177560 


NOU. UAIT FOR... 


7Tl6 n£i^7<^ 


1 <V»X7^ 
l\AJi Ij 






BPL 


1$ 




1 JCV vOv # ov 








MOVB 


a#177562.CR0)* ; 


...AND STORE EACH BYTE... 


f Del Uvv'0*» 




0S1 S07 




CMP 


R0.#LASTAD+1 












BLOS 


1* 


...'TIL DONE. 


f oe J VVV f 1 c 




OOOO'U 


177S6fi 

X ■ • -JOO 


MOVB 


*34.a«177566 


SEND DONE MARK <t\>. 
























i NOU ONE UAY OR T'OTHER. THAT SUCKER'S LOADED. 


1 OcQ 








: DELAY A SKOSH 


AND START IT RUNNING. 
























♦START: CLR 


RO 






077001 






SOB 


RO.. 


DELAY. 






000206 


00090? 


MOV 


9*206. 9«202 


i DELETE "REMOTE" START ADDRESS. 


7331 061012 


012707 


000200 




MOV 


#200.PC 


i S T A R T . . . 




oooooo 






1$: HALT 




i. . . 0 R HALT 




000776 






BR 


1$ 




7334 








.EVEN 




;FX8JC 


7335 


000125 






*LSIZE= <.-$L0A0>/2 


• IMAGE LOADER SIZE (IN WORDS)... 


7336 


077526 






*LSTRT» 100000- 


<.-<L0AD> 


...AND LOCAL STARTING ADDRESS. 
J *** LOWER TO CLEAR T'S OOT STACK *** 


7337 


077416 






$LSTRT= *LSTRT- 


110 


7338 










7339 061022 








BUFRl: .BLKU 


2048. 




7340 071022 








BUFR2. .BLKU 


2048. 




7341 


000001 






.END 
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000000 


APRIOR' 


000000 
www 


RTTI^ = 


OPOOOO 


ABORT 


OOPSOft 




000O4O 


RTT1A * 

DX 1 A** 


040000 


ACOUl ■ 


000000 


APTENV' 


000001 

vwwx 


BIT15 » 


100000 

XVWW 


AC0U2 ■ 


000000 

www 


APTSIZ» 


000200 




00O004 


ACK > 


000006 


APTSPO'c 


000100 


BIT3 = 


000010 


ACKEN ■ 


020000 

Wfc WW 


AR60IS 


036330 


BIT4 ' 


000020 


ACPUOP- 


000000 


ARBER ' 


000002 


BITS * 


000040 

ww^v 


AO ■ 


000020 

WWfc v 


ARBITR 


052160 


BIT6 = 


000100 


AODRS 


045713 


AR6LMG 


035776 


BIT7 = 


000200 


A{K)UO ■ 


000000 


ARBSUM 


060236 

vwt 


BITS " 


000400 


ADDUl - 


000000 


ARBSUP 


016703 

f ^^^^ 


BIT9 » 


001000 


AOOUlO* 


000000 


ARBTPR 


056234 


BLKER 


032740 


AODUll- 


000000 


ARBTYP 


052450 


BOP 


000020 


A00U12- 


000000 


ARB374 


054726 


BPTVEC= 


000014 


A00U13' 


000000 


ARB400 


055164 


BRK 


057522 


A00U14- 


000000 


ARB404 


054530 


BRQ 


040000 


A00U15- 


000000 


AR.404 


054672 


BRQEN = 


010000 


A00U2 - 


000000 


ASUREG* 


000000 


BUFRl 


061022 


A00U3 - 


000000 


ATESTN* 


000000 


BUFR2 


071022 


AD0U4 • 


000000 


AUNIT » 


000000 


BUSHOG> 


000040 


A00U5 ■ 


000000 


AUSUR - 


000000 


6U5REL* 


000100 


A00U4 > 


000000 


AVECTl" 


000000 


BUSTO 


011030 


A00U7 * 


000000 


AVECT2" 


000000 


BXMTD 


046051 


A00U8 • 


000000 


A$MAIL- 


104416 


BYT 


000000 


AD0U9 • 


000000 


A$$MAI 


044046 


BYTES 


037576 


AOEVCT- 


000000 


A. SET 


022500 


Bl 


000040 


AOEVH - 


000000 


A16 


040000 


B2 


000100 


AORBIT 


016760 


A17 


100000 


B4 


000140 


AORSUP 


053317 


A4800 


022476 


CA 


004000 


A0R16 


053300 


BAOBAL 


016572 


CANT 


012436 


A0R18 


053305 


BAD6IT 


016654 


CARA > 


001000 


A0R22 


053312 


BARA > 


000100 


CARAHI 


03704^ 


A01621 


017036 


BARB - 


000040 


CARAHl- 


174432 


AENV > 


000000 


8AUDSE 


022244 


CARALO 


037044 


AENVM • 


000000 


6DQXFR 


020601 


CARALl- 


174412 


AFATAL- 


000000 


BEVNT 


000100 


CAR8 - 


000400 


AGAIN 


003064 


BFLAG 


001352 


CARBHl- 


174422 


AI 


026050 


BI 


026064 


CARBL1« 


174402 


AI.BO * 


164377 


BIACKV* 


000130 


CCR - 


177746 


ALLCTR 


001374 


BIEN - 


002000 


CEOP - 


020000 


AMAORl- 


000000 


BIT 


016776 


CHA «it000004 


AMA0R2« 


000000 


BITRAP 


003042 


CHAD - 


000001 


AMADR3- 


000000 


BITO » 


000001 


CHAINl 


014042 


AMADR4- 


000000 


BITOO • 


000001 


CHAIN2 


014064 


AMAMSl- 


000000 


BITOl « 


000002 


CHAINS 


014104 


AnAnS2- 


000000 


BIT02 ■ 


000004 


CHAIN4 


014124 


AMAHSS- 


000000 


BIT03 ■ 


000010 


CHAINS 


014144 


AHAMS4- 


000000 


BIT04 - 


000020 


CHAIN6 


014164 


AMSGAD- 


000000 


BIT05 - 


000040 


CHAIH - 


174446 


AMS6LG- 


000000 


BIT06 - 


000100 


CHAIL - 


174442 


AMSGTY- 


000000 


BIT07 - 


000200 


CHA2H - 


174444 


AMTYPl- 


000000 


BIT08 - 


000400 


CHA2L - 


174440 


AMTYP2- 


000000 


BIT09 - 


001000 


CHB -K000005 


AMTYP5- 


000000 


BITl • 


000002 


CHEKSU 


010514 


AMTYP4- 


000000 


BITIO - 


002000 


CHKSUH 


044310 


AO.BI - 


165400 


BITll - 


004000 


CHNQIO 


015014 


APASS • 


000000 


8IT12 « 


010000 


CHX "KOOOOOS 
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CH2STA 021512 
CIE - 100000 
CKBYTE 014032 
CKSUM 010712 
CKSUR = 104410 
OOBL 013772 
aiEl - 000060 
aiE2 = 000061 
aiPl - 000054 
aiP2 = 000055 
aKl 046303 
CLK2 046337 
aK3 046405 
aK4 046442 
CM 032114 
CMC = 040000 
CMOR » 174454 
CNFGER 016604 
CNFGOl 016536 
CNTNU 032006 
CNTZ 044312 
COMMA 046136 
COP = 000200 
COPl « 174462 
C0P2 ' 174460 
COUNT 001364 
CPEREG" 177766 
CPUER 003556 
CPU^ST- 000000 
CR - 000015 
CRLF - 000200 
CSRAOR 004715 
CSRDAT 004731 
CSRE 046254 
CSRER 004662 
CTC - 100000 
CTCC - 000040 
CTCS = 000024 
CTMS - 000070 
CTRL - 000000 
CTTC - 000054 
CTV - 000010 
CURBLK 055302 
C.CLR 022550 
CIFLAG 001404 
C2FLAG 001406 
OAOR 045767 
OATACR 057422 
OATALF 057414 
OATIO - 000200 
OATPR 005046 
DCFll 052524 
DCJDM 046140 
DCJll 052510 
OCOUNT 001372 
DCTll 052534 
DC. OAT 012222 



DC.RCV 011750 

DC.XMT 011526 

DOISP « 177570 

OECIMA 050534 

DIN - 000400 

DISMIS 002542 

DISPL<\ 001142 

DISPRE 000174 

DMACl 020102 

DMAC2 020133 

DMAC3 020170 

0MAC4 020221 

DMAC5 020252 

DMAC6 020303 

DMAC7 020336 

DMAENO 015742 

DMAV 000214 

DMAVl 000214 

0MAV2 000220 

DMAl 020042 

DMA2 020413 

DMA3 020451 

DMA4 020513 

0MA5 020562 

DOUT " 000600 

DOWN - 000010 

DPRENO 032122 

DPRV12 000134 

DPRV4 000120 

DPRV8 000124 

DPRl 046500 

DPRIO 047144 

DPRll 027371 

DPR2 046533 

DPR3 046566 

DPR4 046633 

DPR5 046700 

DPR6 046771 

DPR7 046774 

DPR8 047042 

DPR9 047107 
OR - 000000 

OSTART 000204 
OSUR - 177570 

DTCEXP 014204 

DTCTO 005631 

OTCXMl 015214 

0TCXM2 015264 

0TCXM3 015334 

0TCXM4 015403 

0TCXM5 015612 

0TCXM6 015651 

0TCXM7 015700 

0TCXM8 015452 

DTCXM9 015532 

OTCXOl 014754 

0100 037564 



B16 
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Sy«6ol 


table 




0200 


037562 


Fll • 


050 


037566 


FIK 


Efl 


045206 


GAOORS 


EFIO 


045556 


GAHI 


EFll 


045610 


GALO 


EF12 


045646 


GA22 


EF2 


045210 


GDIIOP 


EF3 


045244 


GO 


EF4 


045326 


GTSUR - 


EF5 


045360 


HALTRP 


EF6 


045360 


HD 


EF7 


045442 


HIPAR 


EF8 


045466 


HIQB » 


EF9 


045520 


HLTFLG 


EHl 


044764 


HM 


EH2 


044774 


HOG - 


EH3 


045006 


HOLD - 


EKOERR 


060526 


HT 


ELOG 


051034 


HUNG 


ELOGN - 


000225 


HZ800 


EMAOR 


044746 


IDERR 


EMPRE 


044742 


lEOP - 


EMTVEC" 


000030 


lEXPO 


ENDIRQ 


031174 


IMC - 


ENOLMG 


037160 


INIT 


ENDPIO 


026046 


INITO 


ENDRAn 


011232 


INTLV - 


ENOSHH 


033056 


INTVEC 


ENOSLU 


012504 


INT120 


EOP - 


000002 


INT 134 


EOPER 


020661 


lOPADR 


EOPTBL 


014654 


lOPCNT 


ERHAN 


044630 


lOPEND 


ERRCNT 


001370 


lOPVEX 


ERROR • 


104000 


I0PV02 


ERRVEC- 


000004 


I0PV03 


ERXIT 


044760 


I0PV04 


ESAOR 


044752 


I0PV05 


ESUMRY 


045016 


I0PV06 


ESUMl 


045152 


I0PVO7 


EXPO 


045725 


I0PV08 


EXPOAT 


001360 


I0PV09 


EXTMEM* 


000000 


lOPVlO 


EX400 


055234 


lOPVll 


FALCON 


000140 


I0PV12 


FATALB 


010626 


I0PV13 


FATALR 


010704 


I0PV14 


FATALU 


010634 


I0PV15 


FATALl 


010640 


lOPITR- 


FIN22 


017106 


lOPIIT 


FIRST 


055304 


lOP.ID 


FLAG 


001366 


lOP.UT 


FLIP « 


000020 


lOTVEC- 


FLTO 


037612 


IP 


FLTl 


037602 


IRQ4 > 


FLTIO 


037600 


IRQ5 - 


FRESH 


052000 


IRQ6 - 
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000003 


IRQ7 = 


000020 


050766 


IPX 


023742 


045704 


IR12 


031142 


037536 


IR4 


031126 


037540 


IRS 


031134 


045256 


ISEXT 


023754 


021014 


ITC - 


001000 


000001 


ITX 


023716 


104407 


IV 


000004 


002664 


IXIT 


024024 


000000 


IISUR - 


104414 


007472 


I$$SUR 


043076 


175400 


JMPSAY 


016726 


001350 


Jll - 


0000(^ 


000010 


JllREG 


003230 


000000 


Jill 


050764 


000020 


KOJI 


050762 


000011 


KOJllA 


052477 


060514 


KDPWW- 


172360 


022474 


KDPARl- 


172362 


031156 


KDP/W2- 


172364 


000200 


KDP/W3- 


172366 


046007 


KDPAR4- 


172370 


000400 


KDPAR5- 


172372 


002046 


KDPAR6* 


172374 


017016 


KDPAR7- 


172376 


000140 


KDPORO- 


172320 


036434 


KDPDR1- 


172322 


032772 


KDP0R2- 


172324 


032574 


KDPDR3* 


172326 


052002 


KDP0R4- 


172330 


05074b 


KDP0R5- 


172332 


021754 


KDPDR6* 


172334 


000410 


KDP0R7- 


172336 


055656 


KGIOPQ 


053776 


0556f2 


KGNR 


021756 


055666 


KGITOl 


022054 


055672 


KG*T02 


022074 


0556^6 


KG»T03 


022114 


055702 


KG»T04 


056466 


0557«'>6 


KGIT05 


056472 


055712 


K6*T06 


056474 


055716 


KGIT07 


056514 


055722 


KG.ER 


022016 


0557'6 


KG.IOP 


050744 


0557i2 


KIPARO= 


172340 


055736 


KIPARl- 


172342 


055742 


KIPAR2- 


172344 


104417 


KIPAR3- 


172346 


055746 


KIPAR4- 


172350 


050742 


KIP/W5- 


172352 


050740 


KIPAR6- 


172354 


000020 


KIPAR7- 


172356 


020000 


KIPORO- 


172300 


000002 


KIPORl- 


172302 


000004 


KIPDR2- 


172304 


000010 


KIPDR3- 


172306 
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KIP0R4- 172310 
KIPDR5« 172312 
K1P0R6= 172314 
KIP0R7- 172316 
KTMRK 060444 
KMMEM 053353 
KXINIT 002250 
K2CSRA- 177520 
K2CSRB- 177522 
K2CSRC« 177524 
K2CSR0» 177530 
K2CSRE- 177526 
K2CSRF- 177534 
K2CSRH- 177536 
K2CSRJ« 177540 
K2CSRS 003620 
K2I0 - 040000 
K2t1EM - 000000 
K2QIR » 177532 
K2RAM 005652 
LA 032106 
LASTAD 051506 
LA16 045230 
LA16n2 045222 
LCLMEM 037050 
LOING 052136 
LF - 000012 
LINK 056770 
LHGHl 036436 
LNGH2 036503 
LHGH3 036544 
LMGH4 036571 
LMGHS 036631 
LN - 000006 
LOAD 057070 
LOADED 060450 
LXTPR 004740 
LOCPIN 001376 
LOQB - 160000 
LOMLIM 050752 
LOUPAR 007316 
L02HI - 015400 
LSIll 052545 
LZS 050552 
Lll* 050772 
HAXBLK 050754 
MAXURT 032572 
MAX.UT 055306 
MCC - 000002 
niC • 000000 
MMR - 174470 
MMRDEF- 000135 
mtO ' 177572 
tTRZ • 172516 
MMU 001462 
tt1UTST« 000000 
MMVEC - 000250 



MODE - 000002 
NAC - 010000 
NACK - 000025 
NATIVE 037256 
NBLKS 055274 
NECC - 047536 
NECCM 047531 
rCCOM 047551 
NECM » 047541 
NECffI 047721 
NECV 000070 
NEC. AS 022560 
NEC.OM 023264 
NEC. EN 024536 
NEC. EX 024546 
NEC. I 023674 
NEC.MD 024034 
NEC.SY 022572 
NECOl 022610 
NECl 047406 
NECIO 05016*? 
NEC2 047455 
NEC3 047574 
NEC3A 047625 
NEC4 - 047356 
NEC5 047655 
NEC6 047746 
NEC7 050004 
NEC8 050040 
NEC9 050110 
NEXTl 052032 
NLZ - 000000 
NHIEND 002732 
NHITRP 002544 
NORESP 052006 
NOSHMR 054475 
NOSIG 045206 
NOTST 056464 
NXT 052124 
NXTIOP 000254 
OFFSBC 056652 
OKX 060402 
Orti 060370 
OOPS 017004 
OPC 060420 
OPNAOR 057406 
OPS 060414 
OSP 060424 
OSRO 046067 
OSROA 046105 
OSROe 046116 
OSRl 046075 
PACONV 011120 
PACS - 000020 
PADS - 000032 
PAHS - 000102 
PAHS - 000100 
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PAR 


001576 


PSU » 


177776 


ROLIN ' 


104412 


PARCHK 


006752 


PURFAI- 


000000 


ROOCT - 


104413 


PARCEL 


006750 


PURV 


000024 


READO 


017060 


PARE 


010733 


PURVEC* 


000024 


RECO 


045735 


PARERR 


011174 


QA 


032102 


RECOAT 


001362 


PATttSK" 


000010 


QAOR 


037114 


RELOAD 


057134 


PAV 


000004 


QBCHN2 


017670 


REMBLK 


055300 


PBCS - 


000022 


QBCHN3 


017716 


REHGTE 


056702 


PBOB - 


000034 


aBCHN4 


01^744 


REOP = 


002000 


PBHS • 


000122 


QBEFIN 


021000 


RESTAR 


001622 


PBM5 - 


000120 


QBEGO 


017646 


RESVEC- 


000010 


PBV 


000006 


QBETST 


017106 


RFLAG 


C01344 


PCD6 » 


000036 


Q6ET01 


017770 


RL 


000004 


PCDD • 


000014 


Q6ET02 


020006 


RMC 


004000 


POPDTC 


036764 


n6ET03 


020024 


RPRI « 


000002 


PDR 


001562 


OBEX 


054070 


RQIO 


031722 


PEVNT 


000104 


QBEXER 


017456 


RR 


000002 


PIOAV 


000160 


QBEl * 


170000 


RSTART 


000200 


pioev 


000164 


Q6E1S 


050760 


RSTRAP 


002614 


PIOO 


025430 


QBE2 " 


170020 


RIG » 


010000 


PIODl 


025470 


QBE22 


050756 


RVEC " 


000000 


PI002 


025560 


Q6L0A0 


037142 


R6 -ftoooooe 


PI0D3 


025616 


Q6MEM • 


100000 


R7 -1*000007 


PIOT 


025072 


QBSTRT 


055276 




Ucv 1 Id 


PIOTl 


025166 


QBUSIO- 


140000 


SnLK 1 U 


UeUDe f 


PIOl 


050232 


QOPR 


027750 






PI02 


050257 


OHIT 


035252 


CAUCD1 


wx^w 


PI03 


050326 


QIEND 


027114 




001409 


PI04 


050342 


QIOC 


A<V A a AA 

032100 


SAYYES 


056654 


PI05 


050356 


A*V A A A 

QIOCC 


Avna nA 

032120 


seciN 


057672 


PI06 


050416 


QIR 


177532 


S8C0UT 


057636 


PI07 


050503 


QIRER 


004700 


SBM - 


000003 


PI08 ■ 


047356 


QIRV 


000144 


SCCCHl- 


000240 


PIRQ " 


177772 


QIRVl 


000150 


SCCCH2- 


000241 


PIRQV 


000240 


QIR\/2 


000154 


SCOPE • 


000004 


PIRQvE" 


A A A^ A A 

000240 


QITl 


026356 


SOECIM 


050542 


PIRTRP 


002406 


QIl 


027132 


SDPARO- 


172260 


PIRvtC 


AAA^ JI A 

000240 


AY A 

QI2 


027157 


SOPARl- 


172262 


PITN 


AC A V « « 

050311 


AY V 

QI3 


A A^ A a A 

027210 


SDPAR2- 


172264 


PITX ■ 


AlPA V AV 

050323 


QI4 


027257 


SDPAR3* 


172266 


POINT 


AB AAA4 

052004 


AYP 

QI5 


027323 


S0PAR4- 


172270 


PORTAB 


APA M ^ M 

050464 


QREQ 


056642 


S0PAR5- 


172272 


PORTBA 


AC Ail M Br 

050445 


QREQl 


056630 


S0PAR6- 


172274 


PRAME 


010762 


QREQ2 


056534 


S0PAR7- 


172276 


PRGSIZ* 


AAA 4 AV 

000123 


Q^HIT 


056306 


SOPDRO- 


172220 


PROMCK 


03741? 


Q18ADR 


037052 


S0PDR1» 


172222 


PROnLO 


A 4 A A it A 

010450 


na Mn^^> 

Q186EX 


017442 


S0P0R2" 


172224 


PRTYV 


000114 


Q1822 


017412 


S0P0R3- 


172226 


PRO * 


AAAAAA 

000000 


n ^ M nn 

Q22ADR 


037076 


SDPDR4- 


172230 


PRl • 


A A A A M A 

000040 


Q22BEX 


017424 


S0P0R5- 


172232 


DDO m 

rric ■ 




D AMC 

KAnc 


A 4 4 

011006 


S0PDR6- 


172234 


PR3 • 


000140 


RAMTYT 


01106^ 


SDPDR7- 


172236 


PR4 - 


000200 


RBUF • 


000002 


SETIEl- 


000062 


PR5 • 


000240 


RCDSUM 


060234 


SETIE2- 


000063 


PR6 • 


000300 


RCS - 


000000 


SETPC 


060276 


PR7 


000340 


ROB - 


177776 


SETPSU 


060264 


PS 


177776 


ROCHR » 


104411 


SETREG 


060242 
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SETSP 060304 
SHLOCK 035564 
SHHAMT 054420 
SHMXFR 034762 
SHMXIT 035226 
SHMl 033076 
at12 033144 
SHOSYS 055310 
SHRMEM 054202 
SIPARO- 172240 
SIPARl- 172242 
SIPAR2« 172244 
SIPAR3= 172246 
SIPAR4* 172250 
SIPAR5- 172252 
SIPAR6« 172254 
SIPAR7>' 172256 
SIPDRO- 172200 
SIPDRl" 172202 
SIP0R2= 172204 
SIPDR3- 172206 
SIPDR4- 172210 
SIPDRS- 172212 
SIP0R6« 172214 
SIPDR7" 172216 
SKPl - 000401 
SKP2 - 000402 
SKP3 » 000403 
SLIR 047217 
SLIX 047211 
SLI2 047225 
SLI3 047265 
SLI4 047314 
SLI5 047356 
SLXOO 001354 
SLXOl 001356 
SLUAOR 056732 
SLUl 056726 
SLUITO 005573 
SLU2 056730 
SLU2T0 005612 
SNGL - 000000 
SNIFFR 053412 
SNH - 000000 
SOURCE 001410 
SPACE 046134 
SPAC2 046133 
SPAC4 046131 
SPOHSK 056764 
SPOSET 056766 
SRCHBB- 000017 
SRCHUU- 000012 
SRO = 177572 
SRI « 177574 
SR2 - 177576 
SR3 - 172516 
SSRCHl- 000102 



SSRCH2- 000103 
STACK « 001100 
START 001622 
STAT « 177774 
STATl » 174456 
STAT2 - 174454 
STB8 « 000005 
STBOT - 001000 
STF 046175 
STFUNL' 000014 
STKLMT" 177774 
STQBIO 037046 
STUU « 000004 
SUriCHK 037274 
SVPC - 044606 
SUM - 000002 
SUR 001140 
SUREG 000176 
SWROPT 043152 
SURQ > 000020 
SUO - 000001 
SUOO 000001 
SUOl ' 000002 
SU02 - 000004 
SU03 - 000010 
SU04 « 000020 
SU05 - 000040 
SU06 > 000100 
SU07 - 000200 
SU08 - 000400 
SW09 - 001000 
SUl - 000002 
SUlO - 002000 
sun - 004000 
SU12 « 010000 
SU13 - 020000 
SU14 - 040000 
Skil5 - 100000 
SU2 - 000004 
SU3 - 000010 
SU4 - 000020 
SU5 - 000040 
SU6 - 000100 
SU7 * 000200 
SU8 - 000400 
SU9 - 001000 
SYSER 003571 
S.SET 022520 
TA809 045203 
TBIACK 000130 
TBITVE» 000014 
TBUF » 000006 
TC • 000001 
TCS « 000004 
TDMAl 013140 
TDMA2 013234 
TOPRl 027522 
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T0Pfi2 


027662 


TST6 


A 4 T^^\^ 

013026 


■ ir%^^\rt^ 


7IPV1 


030124 


TST7 


015756 


UIPARO* 


TIPV2 


030470 


TTtIN 


057702 


UIPARl* 


TIPV3 


030720 


T TtOuT 


057646 


UIPAR2* 


TKVEC " 


000060 


TT VV 

TTYX 


AC*T^1 A 

057710 


U1PAR3* 


TMPMAI 


060214 


TTtZ 


057654 


UIPAR4* 


TNLEDS 


037542 


TVtC * 


AAAAAJI 
000004 


U1PAK5* 


TOEH 


011110 


TTPdN = 


1 AjlilA£ 

104406 


UIPAH6" 


TOPMEM 


005650 


TTPUS " 


1 AJiJIAC 

104405 


UIrAR7» 


TPRCHK 


021622 


T VOC • 


1 AililAI 

104401 


1 imiHnrt_ 

UIPDKO* 


TPRDER 


005554 


TTrOC " 


1 AililAO 

104402 


UlrORl* 


TPRER 


005532 


T irOn • 


1 Ail il Ail 

104404 


UlrDK2* 


TPRI « 


000006 


TVDrtC • 


1 Ail 4 AT 

104403 


UIPDR3" 


TPRNXM 


031600 


T INAHc" 


1 Ailil 1 C 

104415 


UIPUK4" 


TPRTO 


031710 


T»»NAn 


043740 


UIPuRS* 


TPROTR 


001346 


TIO. 1 


AOOOilil f* 

022244 b 


UlrURb* 


TPROO " 


175000 


110,2 


AOOCAA 

022500 b 


UIPDK7" 


TPROl • 


175002 




AO^ATil r 


UNtXrl 


TPR02 ■ 


1/5004 


Til - 

1 11 " 


AAAAAil 

000004 




TPR03 • 


175006 


Til* 

1 111 


ACA77A 
050 / lO 




TPR04 ■ 


175010 


T1 1 

111 . i. 


0250/2 b 


tWXRES 


TPR05 ■ 


175012 


Til O 

Til .2 


AOCil TA P 

U25450 b 


f &JVT 

UNXT 


TPR06 • 


175014 


TIT 1 

T15.1 


02/522 b 


vWXTrR 


TPR07 • 


175016 


Tit o 


ATA1 Oil P 

U5U124 b 


1 iLIVTDO 

UNXTRP 


TPROo ■ 


175020 


TIT T 


AT 1 1 1A r 

U511 r4 b 


UP ■ 


T no Art _ 

TPR09 ■ 


175022 


TIC 1 

113. 1 


ftTT07^ r 
0332 ('* b 




Tf>n * rt _ 

TPRIO ■ 


175024 


T1 K O 

113.2 


ATl^OICO r 

055232 b 


UrtKR 


TPRll ■ 


175026 


T 1 K T 


0533O4 b 




TPR12 ■ 


1 75030 


TO 1 

le. 1 


0054OO b 




TPR13 • 


175032 


TO 1 ft 

le. lU 


AAex&A r 
003504 b 


VIAOPA 

VA2uA 


TPR14 " 


175034 


TO O 


ftftT£Oft r 

Uv5QeO b 


ucvon 
VtXrU 


TPR15 • 


175036 


TO T 


AAil 01 A P 

W4214 b 


LiATTD 


TPvEC " 


000064 


TO A 


/V\il7AA P 

U04 /40 b 




TRAPE 


002456 


TO C 


AACAil^ P 

005046 b 


1 lATT 1 

WAITl 


TRAPvE* 


/\/\rtA9 4 

000034 


TO c 

12.6 


AACOOA P 

005220 b 


IJATTil A 


Tn Anil \/ 

TRAP4X 


002426 


TO 7 

12. f 


AACTIt P 

005516 b 




TRBB * 


000001 


TT 1 

10.1 


AA£AA A P 

U00044 b 


1 « 7 


TRFUNL" 


000010 


TT O 


00o5 ro b 


UftTft 


TRP.4 


A • Af A A 

010540 


TT T 

15 . O 


AA£Cil£ P 

006546 b 


IJOA — 

WKD " 


TRTVEC" 


AAAA 4 M 

000014 


TT A 
13.4 


AA£7CO P 

006 r 52 b 


IJTI 1/ 

W7LK 


TBI n 1 _ 

TRWW ■ 


AAAAAA 

000000 


TT e; 

15. D 


AA7T1^ P 

00 r 516 b 


IJT 1 P^ 


TRYNXT 


AC • ^ 

051636 


TT e. 
15.6 


AA7A70 P 

00/4/2 b 


XCVR ■ 


TSET 


A9^ 

036726 


1 tf\DADft« 


1 f f 660 


XDB ■ 


TSTLOC 


001412 


1 tfXQADI . 
IJjPWRl" 


1 77£AO 

177662 


A AP ATkl 

f AbAIN 


TST. ST 


AP^ 4 CA 

056150 


1 tf\OAfiO» 

IWrARg" 


177664 


♦ APTHJ 


TCT 1 

TSTl 


AAV 4 ^ A 

003160 


1 nOABTn 


1 77&£X 

1 r r666 


* AT VP 


T * rt 

TSTIO 


A^^ 4 9 A 

022134 




1 f fb fO 


* ATV1 


TSTll 


^ A'^ 

024602 


I ITVOAQCm 

wrARS" 


177672 


IATT5 


T5T12 


^^A 

026220 




1 77C7A 

1 r7b r4 


IATT4 


TST13 


027412 


WrnK f ■ 


1 77^7^ 

1 f 76 fb 


* Al ITAO 


TST14 


032124 


UUrORO* 


1 77^ OA 

177620 


foASE 


TST15 


AW 4 

033174 


1 lf\or^01 • 
WrUKl" 


1 77^00 
1 / rb22 


foDAOR 


TCT1 A 


U3 f 1 f O 


UUrOn2" 


1 7^£'5il 

177624 


♦oDOAT 


TST2 


003404 




1 77/vPA 


iRTM 


TST3 


005652 


U0P0R4- 


177630 


$CDU1 


TST4 


011312 


U0P0R5- 


177632 


«CDU2 


TST5 


012506 


U0P0R6- 


177634 


ICHARC 
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4 *T*T£. T£ 

177656 


)CID 


001336 


*ERTTL 


001112 


4 A A 

177640 


$CKSUR 


041610 


♦ESCAP 


001160 




fCLK 


AA 4 W*% 

001332 


*ETABL 


001206 


1 / /o44 


♦CnTAG 


AA 4 4 AA 

001100 


♦ETEND 


001312 


1776*6 


# r ill _ 

♦Cn3 * 


AAAuAAA 

000000 


*FATAL 


001170 


1 T^£CA 

177650 


♦CNTLG 


042345 


JFFLG 


043000 


177652 


fCNTLU 


A< A A 

042340 


♦FILLC 


001156 


177654 


♦CPTtP 


AA 4 V 4 A 

001312 


♦FILLS 


001155 


177656 


♦CPUUP 


001214 


♦GOAOR 


001120 


1 77£J\A 

1 f 7600 


♦CRLr 


AA4 4 f V 

001163 


IGOOAT 


001124 


177602 


$CSK 


AA 4 V 4 A 

001314 


♦GET42 


040106 


1 77f^il 

177604 


fCSRA 


AA4 

0013S4 


$GTSUR 


041660 


1 77^ A^ 

1 f roOo 


APCOO 

fLbRB 


AAI TT£ 

001536 


♦HD » 


AAAAA9 

000003 


1 77^ 1 A 

177610 


tPCOP 


001540 


♦HIBTS 


AA 4 AAA 

001000 


1 77^ 1 0 
1 / rbl2 


AAOJ 1/ 

fOoLK 


AA 1 OCO 

041252 


♦HiLin 


ACA^CA 

050750 


I 77£.1 1 

I I /014 


AAALIA 

fUlwO 


AAI OCO 

001252 


♦mucT 


Ad ^CV^ 

042532 


1 77*1 t 
1 / rOlD 


tniMJi 
fUUUl 


AAI OCA 

001254 


♦ ICNT 


AA4 4 Ail 

001104 


005Utb 


Anniji A 
fUUWlO 


A 01 07£ 

0012/6 


* TUT AP 

♦INT AG 


AA4 4 

001135 


U525DO 


AAThLil 1 


AAI TAA 
001500 


♦ ITtrlB 


AAI 1 1 il 

001114 


UU5015 


«r\niJ1 0 


AAI TAO 
001502 


ILcDS 


AA4 TAA 

001540 


AA07TA 

OU2 / V* 


*UUm13 


001504 


*l c 

♦Lr 


AAI 1 AA 

001164 


AA^OI 7 


AAALil A 


AAI TA£ 

00150b 


*l CI P 

*LrLG 


Ail 0777 

042777 


AA07^0 


tfVMJI C 

*UUm15 


AAI T1 A 
001510 


Al AAA 

fLOAD 


AAACCA 

060550 


ftftOAl <L 


4 AAUO 


/V\1 OC£ 

00125b 


41 DAAA 


AAI 1 AA 

001106 


ft/WWt 


tftALTT 

«UUH5 


AAI 0£A 

0012bO 


♦LrtKH 


AAI 1 1 A 

001110 


A*;777A 
U J 1 1 


♦ UUWh 


AAI 0£0 

0012b2 


tl CT7C« 

f Lol^f 


/\AA1 OC 

000125 


UOvi: "MJ 


« UU W5 


00X2b4 


♦La 1 K 1 ■ 


A77A1 * 
0 / /41b 


AAI 1 ftA 


« uu wb 


/V\1 0£X 

0012bb 


AMAA01 


AAI OOA 

001220 


ftT7AO«v 
UO / 0£3 


fUUW/ 


AAI 07A 
0012 rO 


AMAADO 

♦n8UK2 


/V\1 OOA 

001224 




lUUHO 


AAI 070 

0012 i2 


tMAAOT 


AAI OTA 

001250 


/VAAftTO 
trfOOOc 




/VM 07A 
0012 /4 


AMAADA 


AAI OTA 

001254 




*nc\irT 
f UcVL 1 


/VM 1 7& 
0011 rb 


tMATI 


/\A1 1 

OOllbb 


ft^77T/i 
U5/ /5b 


♦otvn 


/V\1 OA A 

001244 


AMAMC1 

♦rwnsi 


AAI 01 A 

00121b 




ini AAA 


A&ACiLA 
0b03b4 




AAI 000 

001222 


ft«v77AA 
05 1 


iAMA 


/V\1 TOA 

001524 


AMAMCT 


AAI OOA 

00122b 


ftTOI 1 0 
052112 




/\A7<i7A 

00 /b f4 




/V\1 OTO 

001252 






A 1 AT 1 A 

010514 




/V\1 /\AO 

001002 


ATI 7TO 
051 / 32 


iAAAf^ 


/\AA1 Oil 

04012b 


♦nrLb 


/\A077fc 

042 / f b 


AAAAA1 
000001 


IDrK 


AAI TOA 

001520 


fnNcW 


aaotat 
042565 


05bbbf 


iAODA 

♦UrKU 


AAI TOO 

001522 


4MCPAA 


/VM OAO 

001202 


05b05b 


4ATDI 

IUIdL 


AA 1 OAO 

041242 


AMCPI P 

tnbbLb 


/VM OAA 

0O12O4 


/V\A1 AA 

000140 


ten " 


AAAOOA 

000224 


*MCPTV 

♦nSbIT 


AAI 1 A A 

OOllbb 


000002 


ftnUAO 


AAA1 1 £i 

04011b 




/\AOTCO 

042532 


ftCI £1 & 

03lblb 


iCUATT 

IcNUul 


AT7fiJLO 

05 /bbe 


IMTVDI 

♦ni TKi 


/VM 017 
00121 1 


001000 




AAA1 TO 

040132 


IMTVDO 

♦nT Tr2 


/VM OOT 

001225 


AAOCAA 

042560 


tcNV 


AAI OAA 

00120b 


tMTVOT 

»ni Tr5 


/VM 007 

00122 / 


AAOCTA 

042554 


♦tNVn 


AAI OAO 

00120/ 


IMTVOA 

♦n 1 Tr4 


/VM OTT 

001255 


AA OCA 0 

042542 


IhOP 


AT7&TO 

057b32 


IMi ■ 1 

fNULL 


/VM 1 CA 
001 154 


AA OCCO 

042552 


♦EOrCT 


AT7£CA 

05 /654 


f NHI 0 1 ■ 


/WWM 
OOOUOl 


AAI 1 TA 
001154 


♦cOrc 


AAA1 AC 

040165 




/\A1 CTA 
041350 


AAI OAO 
WXc4c 




AJA1 TA 
v4UX 00 


iAMAAP 
▼ vAnJUC 


04 IS'^? 

VHX JOC 


001122 


♦EOPP 


040155 


♦OVER 


040432 


001126 


♦ERFLG 


001103 


♦PASS 


001174 


041606 


$ERHAX 


001115 


♦PASTM 


001006 


001246 


$ERROR 


044314 


♦PATCH 


050774 


001250 


♦ERRPC 


001116 


♦PIG 


001330 


041032 


♦ERRTB 


001312 


IPNUM - 


000010 



EiD 

KXJil-CA FUNCTIONAL TEST 
Symbol table 



♦QOLY 
)QIR 

$ROCHR 

♦ROLIN 

♦RDOCT 

♦RDSZ ' 

IRTNAO 

♦SCOPE 

ISETUP- 

ISLOAO 

*SL2 

♦START 

$STUP - 

. ABS. 



001342 
001316 
001162 
042072 
042222 
042374 
000010 
040130 
040206 
000127 
060736 
001326 
061000 
177777 



101022 
000000 
Errors detected: 



000 
001 
0 



♦SVLAO 
♦SVPC » 
«SUR - 
iSUREG 
(SURn<- 
♦SW08T 

♦ TCID 
♦TESTN 
ITKB 

♦ TKS 
♦IN 
♦TPB 
ITPFLG 
♦TPS 
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040376 
001000 
101400 
001210 
000200 
040446 
001340 
001172 
001146 
001144 
000017 
001152 
001157 
001150 



(RU.I.GBL.ABS.OVR) 
(RU.I.LCL.REL.CON) 



♦ TRAP 
♦TRAP2 

♦ TRP = 
♦TRPAO 

♦ TSTM 
♦TSTNM 
♦TTYIN 
♦TYPBN 
♦TYPOS 
♦TYPE 
♦TYPEC 
♦TYPEX 
♦TYPOC 
♦TYPON 



043002 
043024 
000020 
043036 
001004 
001102 
042330 
041534 
041036 
040502 
040714 
041034 
041332 
041346 



*** Assembler statistics 



Uork f i le reads 
Uork file writes 
Size of work file 
Size of core pool 



422 
347 

57336 Uords 
19402 Uords 



( 224 Pages) 
( 74 Paoes) 



Operatinfl system: RSX-llM/PLUS (Under VAX/VMS) 

Elapsed time: 00:03:03.58 

CZKXAA , CZKXAA/CR/-SP-MACMAC . MLB/ft. . CZKXAA 
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♦TYPOS 041306 

♦UNIT 001200 

♦UNITM 001010 

♦UPPAR 010046 

♦UPURO 010176 

♦USUR 001212 

♦VECTl 001236 

♦VECT2 001240 

♦XOFF X 000023 

♦XON = 000021 

♦XTSTR 040230 

♦♦ARB 051510 

♦♦GET4= 000000 

♦♦SW08- 000017 



♦♦TDX 041262 

♦OFILL 041531 

♦40CAT 000000 

.ABUSU 050736 

.LSTAO 050734 

.LSTPG 050732 

.MMU ' 050732 

.MSIZE 050730 

•SIZE 052574 

.SIZKT 052726 

.SIZ^E 053100 

.SIZXI 053156 

.♦X • 001000 



